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PREFACE 


This book explains how to use the DCT11-EM evaluation module. Although the book presents many 
topics in simplified form, some technical background is assumed on your part. It is assumed, for example, 
that you are familiar with the basics of microprocessor software and hardware. However, you need not be 
familiar with microprocessors manufactured by Digital Equipment Corporation. 

To understand software details such as those contained in the monitor listing (Appendix A), you should be 
familiar with the MACRO-11 language. To understand hardware details, you should be able to read and 
interpret schematic diagrams and data sheets. 

The book is organized as follows. 

Chapter 1 is an introduction to the DCT11-EM and contains a specification summary for your reference. 
Chapter 2 explains how to install and power up your DCT11-EM. 

Chapter 3 shows you how to operate your DCT11-EM using the on-board keypad and switches. 

Chapter 4 shows you how to operate your DCT11-EM using a console terminal. 

Chapter 5 provides software information and describes the use of monitor subroutines. 

Chapter 6 gives an overview of the DCT11-EM hardware and contains information you will find useful if 
you plan to design external circuitry. 

Appendices A and B contain the DCT11-EM monitor listing and schematics, respectively. Appendix C 
contains a summary of error messages. 

You will find that this book requires a high degree of interaction between you and the DCT11-EM. 
Chapters 3 and 4, in particular, are structured so that examples are an integral part of the text. 



CHAPTER 1 
OVERVIEW 


1.1 INTRODUCTION 

The DCT11-EM is a standalone, single-board computer. It is designed as a tool to introduce you to the 
DCT11-AA microprocessor CPU chip and the PD P-11 architecture. It contains supporting hardware and 
software which greatly simplify the task of evaluating the DCT11-AA for your application. 

The DCTl 1-EM gives you considerable flexibility in designing your own software and hardware. You can 
write programs to run on the DCTl 1 -EM which are substantially,the same as those written in the versatile 
PDP-11 assembly language. You can also design your own hardware interfaces to use with the DCTl 1- 
EM. In fact, your hardware can connect directly to the DCTl l-EM’s internal data paths through an on¬ 
board, 60-pin male connector. 

This chapter summarizes the features of the DCTl 1-EM. You will find more detail in the chapters that 
follow. 

1.2 THE DCTU-EM AT A GLANCE 
Centra] Processor 

• DCTl 1-AA microprocessor 

• 133 ns cycle time (standard) 

Memory 

• 4 K bytes of RAM, expandable to 8 K bytes 

• 16 K bytes of EPROM which contains the DCTl 1-EM monitor 

Input/Output 

• Two serial ports, one for a console terminal and the other for an auxiliary RS232-C device 

• One 8-bit parallel port 

• One 60-pin connector for use by expansion hardware; allows access to DCTl 1-EM internal data 
paths 

Host Communication 

• Host computer can be connected to the auxiliary serial port for downline loading of programs 

• Character format is asynchronous, 8 bits, ASCII, no parity, one stop bit 

• Available baud rates are: 300, 600, 1200, 2400, 4800, 9600, 19200 

Software 

• Software is EPROM resident 

• Keypad monitor for performing operations with the on-board keypad 

• Console monitor for performing operations with a console terminal and with a host computer 
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On-Board Control Hardware 


• 20-key keypad (4x5 array) 

• HALT push-button switch 

On-Board Displays 

• Two rows of 6-digit octal LEDs 

• User LED 


Interrupts 

• Four levels of interrupt priorities 

• On-board interrupt push-button switch 

Diagnostics 

• Contained in EPROM, automatically run at power-up time 

Documentation (provided with DCTI1-EM) 

• DCTIUEM User’s Guide 

• DCT11-AA (MICRO/T-ll) User’s Guide 

• DCS T9-A A DLART Data Sheet 

Physical 

• Width: 20.3 cm (8 in) 

• Length (including connectors): 27.9 cm (11 in) 

• Height: 3.8 cm (1.5 in) 

• Weight: 450 gm (15 oz) 

Environment 

• Noncaustic environment required 

• Operating temperature: 10 to 40 degrees C 

• Relative humidity: 10% to 90% (noncondensing) 

• Altitude: Up to 2.4 km (8000 ft) 

DC Power Requirements 

• For keypad operation only: 

+5 V (±5%) (a. 2 A 

• For console terminal operation. 

+5 V (±5%) & 2 A 
+ 12 V (±10%) & 50 mA 
-12 V (±10%) (b 50 mA 
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CHAPTER 2 
INSTALLATION 


2.1 INTRODUCTION 

DCT11-EM installation consists of attaching a power supply, powering up, and verifying that the board is 
operating properly. 

2.2 POWER SUPPLY REQUIREMENTS 

The DCT11-EM requires a +5 Vdc supply (±5%) capable of delivering up to 2 A. If you plan to use the 
console or auxiliary serial ports, you also need a +12 Vdc supply (±10%) and a -12 Vdc supply (±10%) 
each capable of delivering up to 50 mA. 


WARNING 

To protect yourself against injury from contact with 
circuits that carry high energy, we suggest your 
power supply outputs be limited to no more than 240 
VA. This is in accordance with standards for data 
processing equipment. 

CAUTION 

We recommend that you fuse your power supply 
outputs at 5 A or less to provide overcurrent protec¬ 
tion to circuits and remote wiring. 

2.3 CONSTRUCTING A POWER SUPPLY CABLE 

The DCTll-EM is packaged with a power supply connector and pins with which you can assemble a 
power supply cable. To do this, perform the following steps. 

1. Select a 1 foot length of medium gauge (10 to 14 gauge) wire and strip the wire about 1/4 inch 
from each end. If you are using multiple-strand wire, twist the strands together at each stripped 
end. 

2. Insert one end of the wire into a pin as shown in Figure 2-1. Crimp the pin to the wire with a 
pair of pliers or a crimping tool and solder the wire. 


PIN 



CRIMP PIN HERE, THEN SOLDER WIRE w iov. 


Figure 2-1 Attaching Pin to Wire 
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3. Insert the pin in the connector as shown in Figure 2-2. 



Figure 2-2 Inserting Pin into Connector 


4. Repeat steps 1, 2, and 3 for each wire in your connector. (Use different colored wires for easy 
identification.) 

5. Attach the wires to a power supply, making sure they correspond to the correct voltages as 
shown in Figure 2-3. 



Figure 2-3 Power Supply Connector Pin Assignments 


6. Turn on the power supply and use a voltmeter to check that the correct voltages appear at the 
connector pins. 

7. Turn off the power supply and attach the connector to the DCT11-EM as shown in Figure 2-4. 
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POWER SUPPLY 



□ CT11-EM 


MR ■ I CA44 

figure 2-4 Power Supply Connector 


You are now ready to power up your DCTl 1-EM. 

2.4 POWERING UP AND VERIFYING CORRECT OPERATION 

Make sure your DCTl 1-EM is on a nonmetallic surface and positioned so that it does not come in contact 
with any conducting objects. Then turn on your power supply. 

When you apply power, the DCTl 1-EM runs its diagnostics automatically. The diagnostics: (1) perform 
checksum tests for the on-board RAM and PROM, and (2) write and read back data to and from the 
DLART. If the diagnostics run successfully, the LEDs display the following. 



This shows that the keypad monitor is active and ready to accept your input. Further information on using 
the keypad is given in Chapter 3. 

In addition to activating the keypad monitor, the DCT11-EM also sets these initial conditions: 

• All user RAM is cleared 

• The symbol table is cleared 

• The stack pointer is set to 7400 

• Both serial port baud rates are set to 9600. 

You will learn more about what these initial conditions mean in later chapters. 
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If the two rows of LEDs are blank after you power up, your DCT11-EM probably has major problems. 

The LEDs may display a flashing diagnostic error message after you power up. The meaning of the error 
messages is summarized below. 


UPPER LOWER 

DISPLAY DISPLAY MEANING 



E r r o 


RAM checksum test failed. Try 
replacing RAM chips. 


ROM checksum test failed. Try 
replacing ROM chips. 


RAM and ROM checksum tests failed. 
Board may have major problems. 


DLART feedback test failed. 
Board may have major problems. 


If you suspect your board has major problems, contact Digital Equipment Corporation or the authorized 
distributor from whom you purchased your DCT11-EM. The DCT11-EM is warranted against defects in 
workmanship for a period of ninety (90) days from the date of delivery. 

2.5 JUMPERING 

There are two metal posts located above the upper left corner of the DCT1 l-EM keypad. Install a jumper 
between these posts if you want to disable the generation of DCT11-AA microprocessor cycle slips. If you 
do this, you must also change the DCT11-AA’s 7.5 MHz dock frequency to a frequency between 3 MHz 
and 6 MHz. To change the clock frequency, remove the 7.5 MHz crystal from the board and install a 
crystal of the desired frequency. 

This is the only jumper that may be installed on the DCT11-EM. 
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CHAPTER 3 
KEYPAD OPERATION 


3.1 INTRODUCTION 

This chapter explains how to operate the DCTll-EM using the DCTll-EM’s on-board keypad and 
switches. When you complete this chapter, you will be able to do the following. 

• Examine and alter the contents of registers in the DCT11-AA register file. 

• Examine and alter the contents of memory locations. 

• Enter and execute programs. 

• Debug your programs through the use of single steps, breakpoints, and watchpoints. 

• Perform halts and interrupts. 

• Perform a number of other functions. 

The DCT11-EM keypad, switches, and displays are arranged as shown in Figure 3-1. 




MO 1034t> 

Figure 3-1 DCTl 1-EM Keypad, Switches, and Displays 
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Figure 3-1 shows two rows of six LED digits which display data, addresses, and other information. Below 
the two rows of LED digits is a single LED (called the user LED) which you can use as an indicator in your 
programs. To the right of the LEDs are the HALT and INT push-button switches. These switches perform 
the functions their names imply; that is, they can halt and interrupt DCTl 1-EM operation. To the extreme 
right is a 4 X 5 array of switches called the keypad. The keypad is used to enter commands, instructions, 
and other information to the DCTl 1-EM. Pressing keys will generally cause responses to appear on the 
LED displays. 

3.2 NUMBER SYSTEM 

Information that is input or output via the keypad/LED combination must be represented in octal 
notation. Since the DCTl 1-AA is a 16-bit processor, the acceptable range of octal inputs and outputs is 
000000 through 177777. 

3.3 EXAMINING REGISTERS 

To examine the contents of a DCTl 1-AA internal register, you must first place the DCTl 1-EM in register 
mode. Do this by pressing the REG key. The LEDs display: 


r E 


Now you may examine a register by pressing any of the following keys: 

0 through 9 
or 

CLR, which is equivalent to key 0. 

In general, the name of the register being examined appears on the upper row of LEDs, and the contents of 
the register appears on the lower row of LEDs. The exception to this is when the watchpoint (WP) is 
examined. In that case, an address called the watchpoint (WP) address is displayed on the upper row of 
LEDs, and the WP contents are displayed on the lower row. 

v 

Keys 0 through 7 select R0 through R7, the eight registers in the DCTl 1-AA register file. Registers 6 and 
7 are dedicated and are referred to as the stack pointer (SP) and program counter (PC), respectively. 

Key 8 selects the processor status (PS) word. Only the lower 8 bits of the PS word are meaningful. The PS 
word contains the current processor priority, the processor condition codes (N, Z, V, and C), and the T-bit. 

Key 9 selects the watchpoint (WP), The WP is useful in connection with program debugging and is 
discussed in Paragraph 3.8.3. 
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NOTE 

If you have just powered up your DCT11-EM or if 
you have halted its operation, it is not necessary to 
press the REG key to get into register mode. 

The upper row of LEDs will display: 


p c 


The lower row of LEDs will display the current 
value of the PC, and you can simply press one of the 
keys 0 through 9 or CLR to select a register. 

Examining Registers - Example 1 

You want to examine the contents of various registers. It is assumed that the registers still contain their 
initial (power-up) values. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


H 

□ 

□ 

□ 

CLR 

□ 

□ 









0 

0 

0 

o 

o 

o 


0 

0 

0 

0 

0 

0 


0 

0 

6 

5 

0 

0 


0 

0 

0 

1 

0 j 0 

0 


0 

0 

0 

3 

0 

n 

0 


0 

0 

0 

0 

0 

0 



Get into register mode 


The ADV and BAC keys allow you to examine register contents sequentially. Pressing the ADV key allows 
you to examine registers in ascending order. You cannot advance beyond the WP. Pressing the BAC key 
allows you to examine registers in descending order. You cannot back up beyond RO. 

If you want to examine registers nonsequentiafly after you have pressed ADV or BAC, you must first press 
the REG key to reinitialize register mode. Otherwise, you will alter the contents of the register you are 
currently examining. 
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Examining Registers - Example 2 

You want to examine more registers. You begin by examining them sequentially. It is assumed that the 
registers still contain their initial (power-up) values. 


KEY 


REG 


ADV 


ADV 


ADV 


iBAC 


BAC 


□ 


CLR 


REG 


□ 


BAG 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 




Get into register mode. 


You wanted to examine 
R4 but you altered RO 
instead. 


Clear the incorrect entry. 


This is how to examine R4. 


Now you're sequentially 
examining again. 


3.4 ALTERING REGISTERS 

To alter the contents of a DCT11-AA internal register, you must first examine the register as described in 
Paragraph 3.3, To review, this means you must place the DCT11-EM in register mode by pressing the 
REG key and examine the desired register by pressing one of the keys 0 through 9. Once you have done 
this, press the EXA key and alter the contents of the selected register by pressing keys 0 through 7 in the 
desired order. 
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The previous contents of the register will be cleared and you will see the new contents being shifted in from 
the right side of the lower row of LEDs as you press keys. 

If you wish to clear the contents of a register, press the CLR key after you have pressed the EX A key. 
Pressing the CLR key also clears a register while you are entering data. 

Altering Registers - Example 1 

You want to set register R3 to 000232 and the SP to 6000. It is assumed that the registers still contain 
their initial (power-up) values. 


KEY 


UPPER 

DISPLAY 


LOWER 

DISPLAY COMMENTS 


REG 




r 

E 

G 






r 

l_ 



Get into register mode. 





E 




r 

3 




0 

0 

21 

2 

2 

0 

Examine R3. 





EXA 




2 




0 

0 

0 


0 

0 

Enter 232. 





E 




'Ll 

3 

r 



0 

o 7 

0 

0 

2 






E 




r 

£ 




0 

0 

0 

0 2 

3 






□ 




r 

3 




0 

0 

0 

2 

3 

2 







CLR 




r 

3 




0 

0 

0 

0 

0 

0 

You change your mind, 
and clear R3 instead 






REG 




r 

E 

G 









Get back into register 
mode to change another 
register. 





□ 




s 

P 




0 

0 

12 

l 4 . 

0 

0 

Examtne R6 (the SP). It 
currently = 7400. 






EXA 




s 

P 




0 

0 

7 

4 

0 

0 

Set SP = 6000. 






□ 



j 

1 

S j P 




0 

0 

0 

0 

2 

2 







□ 




s 

J 

J 



2 

0 

0 

2 

2 

2 
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s P 


0 

0 

7 

E 

— 1 

0 

0 


71 

7 


6 

0 

j 

0 


The ADV and BAC keys allow you to alter register contents sequentially. Pressing the ADV key allows 
you to alter registers in ascending order. You cannot advance beyond the WP. Pressing the BAC key 
allows you to alter registers in descending order. You cannot back up beyond RO. 

Press the ADV or BAC keys until you arrive at the register you want to alter, then press the desired 
sequence of keys 0 through 7 to enter the data. If you want to clear the register, press CLR. If you want to 
alter registers nonsequentially after you have pressed the ADV or BAC keys, you must first press the REG 
key to reinitialize register mode. Then press 0 through 9 to select the desired register, followed by EXA, 
followed by the data you wish to enter. 

It is generally easier to stay in sequential mode and step forward or backward to the desired register than 
to perform nonsequential alterations. 

Altering Registers - Example 2 

You have just completed example 1 and now want to sequentially change some registers. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


BAC 


: 


r 

7 

1 



0 

0 

7 

7 

71 

0 




FI 




r 

• 

7 

J 


7 

0 

0 

E 

7 

4 




1 3 




. 

• 




0 

0 

E 

0 

4 

3 




BAC 



n 

71 

4 

L 



0 

0 

E 

E 

7 

0 




BAC 



_i 

7 

7 

L 



0 

0 

E 

• 

7 

0 




□ 




r 

7 




0 

0 

0 

7 

0 

1 




ADV 




r 

7 

L 


E 

0 

0 

E 

7 

0 




BAC 


i 

_j 

n 

r 

_ 

n 

3 

L 



0 

0 

0 

7 

0 

1 


R5 is now alterable. 


Enter 43. 


R4 is now alterable. 


R3 is now alterable, 


Enter 1. 


R4 is now alterable. But 
now you want to clear R3 
and alter RO. 
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0 0 0 0 0 0 R0 is now alterable. 


3.5 EXAMINING MEMORY LOCATIONS 

To examine a memory location, you must first place the DCT11-EM in address mode. Do this by pressing 
the ADR key. The first time you do this, the LEDs display: 



Subsequently, when you press the ADR key, the upper row of LEDs displays: 



and the lower row of LEDs displays the most recently examined address. 

Enter the address of the memory location you wish to examine by pressing the appropriate sequence of 
keys 0 through 7 . 

The previous address will be cleared and you will see the address you are entering being shifted in from the 
right side of the lower row of LEDs as you press keys. 

If you make a mistake entering your address, you can press the CLR key to clear your entry and try again. 

Once you are satisfied with the address you have entered, press the EXA key. The address of the location 
you are examining (the address you just entered) appears on the upper row of LEDs, and the contents of 
this location appear on the lower row of LEDs. Only even addresses can be examined. If you enter an odd 
address, it is rounded down when you press the EXA key. 
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Examining Memory Locations - Example I 

You have just powered up your DCTi I-EM and want to examine some memory locations. There is a 
program that resides in the DCTI 1-EM called the monitor which begins at address 140000. You will learn 
more about the monitor later, but for now, all we want to do is examine some of its locations. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 
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0 
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0 
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Gel into address mode. 


Enter 140000. 


The ADV and BAC keys allow you to examine memory locations sequentially. Pressing the ADV key 
allows you to examine memory locations in ascending order. Advancing beyond address 177776 results in 
examining locations starting at 000000. Pressing the BAC key allows you to alter registers in descending 
order. Backing up beyond 000000 results in examining locations starting at 177776. 

If you want to examine memory locations nonsequentially after you have pressed ADV or BAC, you must 
first press the ADR key to reinitialize address mode. Otherwise, you will change the contents of the 
memory location you are currently examining. 

Examining Memory Locations - Example 2 

You have just finished example 1 and now want to examine more locations in the monitor. You start by 
examining them sequentially. 
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KEY 
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□ 


exA 


BAC 


1 4 0 0 0 2 


1 

E 

0 

0 

E 

7 



A 

d 

d 

r 




A 

d 

I- 

r 




A 

d 

E 

i 




71 

d 

0 

E 

L 



A 

d 

d 

r 





7 

17 

L d _ 





A 

d 

d 

r 




7 

4 

0 

■ 

7 

0 


1 

4 

0 


i 

6 


0 

1 

n 

5 

“1 

3 

3 

i - 

0 






— 



— 

— 

1- 

1- 

-1— 


] 




1-1 

ADV 


1 

4 

i” 

0 

0 4 


0 0 

E 

0 

6 

□ 


1 

— 

--t -r -~T- 

—! 




—[ 


ADV 


1 

4 0 0 0 

6 


0 

7 

6 | 7 

4 | 2 


0 0 0 


6 7 


i 

4 

E 

0 

[7 

r 


0 

E 

0 

0 

0 1 1 

_ 


0 

0 

0 

0 

1 

4 


0 

0 

17 

1 

4 

0 


0 

0 

71 

E 

7 

1 


• 

> 

4 

0 

E 

0 
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1 

7 
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3 

71 
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COMMENTS 


Reinitialize address 
mode for nonsequential 
examine. 


You try to examine 

140101. 


The address is rounded 
down and you examine 
140100. 


Now you're sequentially 
examining again. 
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3.6 ALTERING MEMORY LOCATIONS 

To alter the contents of a memory location, you must first examine the memory location as described in 
Paragraph 3.5. To review, this means you must place the DCT11-EM in address mode by pressing the 
ADR key and examine the desired location by pressing the appropriate sequence of keys 0 through 7. 
Then press the EXA key. 

The contents of the location you are examining can now be changed by pressing keys 0 through 7 in the 
desired sequence. The previous contents of the location will be cleared and you will see the new contents 
being shifted in from the right side of the lower row of LEDs as you press keys. 

Pressing the CLR key will clear the location before or during data entry. 

Altering Memory Locations - Example 1 

You have just powered up your DCT11-EM and want to alter some memory locations. Locations 2000 
through 2006 are in the user RAM area and will be used in the following examples. Later on, you will 
learn more about the availability of DCTl 1-EM memory and address space, but for now the discussion 
will be limited to these locations only. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


|APR| 
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□ 

CLR 

0 
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□ 

□ 
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0 

0 

0 

0 

2 

0 


0 

I 4 

. 

2 

0 

0 
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0 

2 
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0 
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Get into address mode. 


Enter 2004 


You made a mistake and 
entered t tnstead of 0. 


Clear entry. 


Try again - enter 2004. 


2004 is currently 
empty. 


Enter 32 


3-10 






















□ 

ADR 
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□ 

0 

EXA 

□ 
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0 
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0 
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0 
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2 
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7 

2 
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0 

2 
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0 

r 
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0 

0 

_ 


0 

0 

1 


Back to address mode to 
alter another location 
Note — most recent address 
examined is displayed. 


Enter 2000. 


2000 is currently 
empty. 


Enter 1. 


The ADV and BAC keys allow you to alter memory locations sequentially. Pressing the ADV key allows 
you to alter memory locations in ascending order. Pressing the BAC key allows you to alter memory 
locations in descending order. 

Press the ADV or BAC keys until you arrive at the memory location you want to alter and press the 
desired sequence of keys 0 through 7 to enter the data. Tf you want to clear the memory location, press 

CLR 

Altering Memory Locations - Example 2 

You have just completed example 1 and now want to sequentially alter memory locations. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


ADV 







Location 2002 is now 
alterable. 


Enter 47. 


Location 2004 is now 
alterable. 



























Eme< 5. 


□ 

ADV 

□ 

□ 

BAC 

L_J 

IclrI 




Location 2006 is now 
alterable. 


Enter 22 


Location 2004 is now 
alterable 


Clear it. 


3.7 ENTERING AND EXECUTING A SIMPLE PROGRAM 

In this paragraph, we will tie together the material presented thus far by entering and running a simple 
program. It is assumed you are familiar with an assembly language instruction set. A full description of the 
instruction set used in the following example is found in Chapter 6 of the DCTl I-AA User's Guide (EK- 
DCT11-UG). 


The following program takes a number in register Rl, adds it to a number in register R2, and puts the 
result in register R3. 

Octal Code Instruction Comments 

010103 MOV R1,R3 Get first term. 

060203 ADD R2,R3 Add second term. 

000000 HALT Halt program execution. 

We will place this program in user RAM, starting at address 2000. 


KEY 


UPPER 
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DISPLAY 

DISPLAY 

COMMENTS 
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Most recently exam¬ 
ined address shown 
on lower LEDs. 



Examine 2000. 
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Current contents of 
location 2000 are 
shown on lower LEDs. 
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Current contents of 
2002 are shown on 
lower LEDs. 
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Current contents of 
2004 are shown on 
lower LEDs. 
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CIR 
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Enter first instruction. 
You don’t need to enter 
leading zeroes. 


Examine next address. 


Enter second instruction. 


Examine next address. 


Enter third instruction. 
HALT is entered by 
clearing the location. 
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Now place some numbers in Ri and R2 that the program can work with. Also make sure R3 is cleared. 
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Examine 2002. 


AOV 


ADV 
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Examine 2004. 


Get into register mode. 


Examine registers. 


Everything O.K 


Now run the program. Set the PC to the starting address of the program (2000) and press the GO key to 
begin program execution. Since you are currently in register mode, press the ADV key until you get to the 


PC. 
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Enter 2000, 


Execute the program. 


The program is now halted. The current PC (2006) is displayed on the lower row of LEDs. 
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Check R3 to find out if the program executed properly. Since you are in register mode, press the BAC key 
until you get to R3: 


SAC 



0 0 


o o! s 


and the result is correct. 

3.8 WORKING WITH A LONGER PROGRAM 

Consider a program that calculates the sum of all the numbers from 0 to n, where you specify n. That is, 
the program determines: 


n 

Z‘ 

X - 0 

You place the vaiue of n in RO, and the program deposits the sum it calculates in memory location 2044. 
Use the keypad to enter the following summation program starting at location 2000. 



Octal 



Location 

Code 

Instruction 

Comments 

2000 

005001 

CLR R 1 

Set R 1 = 0. 

2002 

020001 

CMP R0,R 1 

R0 contains n. 

2004 

003413 

BLE 2034 

Illegal input (n < 0)7 

2006 

005037 

CLR &#2044 

No, start operation by clearing 2044. 

2010 

002044 



2012 

010037 

MOV R0.(« #2044 

Place first value of n in 2044. 

2014 

002044 



2016 

005300 

DEC R0 

n = n—1 

2020 

060037 

ADD R0,(<v#2044 

Add next value (n— I) to 2044. 

2022 

002044 



2024 

102404 

BVS 2036 

Overflow? 

2026 

02000! 

CMP R0,R 1 

No overflow. 

2030 

003372 

BGT 2016 

Continue operation if n > 0. 

2032 

000000 

HALT 

Operation complete if n = 0. 

2034 

005000 

CLR R0 

Illegal input. Clear R0, 2044. 

2036 

005037 

CLR &#2044 

Overflow. Clear 2044. 

2040 

002044 



2042 

000000 

HALT 

Illegal input or overflow occurred. 

2044 

xxxxxx 


Initial contents of 2044 irrelevant. 
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To test the operation of the program, deposit a value of 10 (octal) into R0. The program should sum 10 + 
7 + 6 + 5 + 4 + 3 + 2+1 (octal) in memory location 2044 to produce 44 (octal). Note that this is 
equivalent to having a value of 8 (decimal) in R0 and letting the program sum 8 + 7 + 6 + 5 + 4-t-3 + 2 + 
I (decimal) to produce 36 (decimal). 

Set R0 = 10 
SP = 7400 
PC = 2000 

Press the GO key. 

The result should be: 


-Pjc 


0 0 


3 4 


The program halted at location 2032. Now examine location 2044. 
The result should be: 


O 0 


O 0 


3.8.1 Using the Single-Step Function 

The single-step function is a powerful program analysis toot. It allows you to execute your program one 
instruction at a time. At the end of each instruction, you may examine various registers and memory 
locations to determine how the program has affected them. 

To perform the single-step function, press the SST key. 

Result: the instruction currently pointed to by the PC is executed. 

Let us now single step through the preceding summation program. First set up your initial conditions: 

Set R0 = 10 
SP = 7400 
PC = 2000 
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Then key in the following. 



□ 

H 

□ 

□ 

exa 

SST 

— 

REG 

H 



Yes. 


2016 executed. 


Did RO get decremented? 


Yes. 
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2020 executed. 


SST 


ADR 


EXA 


SST 


SST 


SST 


SST 


REG 


□ 


SST 


ADR 


EXA 




Has RO been added to 2044? 


Yes. 


2024 executed. 


2026 executed. 


Program branched correctly. 


201 6 executed. 


Oid RO get decremented 7 


Yes 


2020 executed. 


Did RO get added to 2044 7 


Yes. 


S ou can continue executing the program one instruction at a time by repetitively pressing the SST key. 

3.8.2 Using Breakpoints 

The use of breakpoints is another means of analyzing and debugging your programs. Breakpoints cause 
vour program to halt whenever they are encountered. When the program is halted, you can then examine 
vinous registers and memory locations to determine how the program has affected them. 

I: there were no debugging aids, you would have to insert breakpoint (BPT) instructions in your program 
i_-d write a breakpoint trap handling routine if you desired breakpoints. The DCTl 1-EM, however, does 
;-.:ntain debugging aids and provides a convenient means of inserting up to four breakpoints via the 
tr.pad. Do not attempt to set breakpoints by inserting BPT instructions in your program. If you do this, 
■ - will get an error message when you try to execute the program (see Appendix C). 
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To insert breakpoints, press the BPT key. 
The upper row of LEDs displays: 


b - I P n! t 1 


and the lower row of LEDs displays the current address of breakpoint 1. If breakpoint 1 is not currently 
set, the lower row of LEDs displays: 


o o 


You can then press the appropriate sequence of keys 0 through 7 to enter the address of breakpoint 1. 

You can set up to four breakpoints in this way. Use the ADV and BAC keys to examine breakpoints 1 
through 4 and press the appropriate sequence of keys 0 through 7 to enter an address for each breakpoint. 

If you press BAC while you are examining breakpoint 1, you are examining something called the 
watchpoint address. The use of the watchpoint is explained in Paragraph 3.8.3. 

Breakpoints are recognized only if you use the GO key or the “Go With LEDs” special function 
(Paragraph 3.12.2) to execute your program from the keypad. Breakpoints are disabled when you single 
step through a program. 

When you execute a program with breakpoints in it (by pressing the GO key, for example), your program 
halts at the address of your first breakpoint without executing the instruction at that address. The 
instruction at the breakpoint address is executed when you resume program execution (e.g., by pressing the 
GO or SST keys). 

Using Breakpoints - Example 

We want to set two breakpoints in the summation program shown in Paragraph 3.8. Set the first 
breakpoint at address 2020 to make sure R0 has been decremented properly. Then set the second 
breakpoint at address 2024 to check the results of the cumulative addition. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


BPT 






0 0 0 
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0 0 0 


0 0 0 

__ 1 _ 
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0 0 z 
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O 

O 

2 0 j 2 


Assume no breakpoints 
have been previously set. 


Enter 2020. 
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Set breakpoint 2. 


□ 


ADV 


El 

□ 


□ 


b , r I P 


b r P n t 2 0 


r [ P | n 


b r P n t 2 


0 0 0 0 2 0 


□ 

b 

P j n 

t 


0 

2 [ 


b r P 


Enter 202* 


Set your initial conditions as before (RO = 10, SP = 7400, PC = 2000) and execute the program. 


GO 




P 

C 



T 

f 7 

IT 

0 


0 
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REG 
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I r je 
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IG 
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□ 


r ,0 


— r T" 
0 , 0 ! 0 


GO 


P C 


0 0 2 


0 2 4 


First breakpoint 
encountered. 


Did RO get decremented-’ 


Yes 


Resume execution 


Examine address 2044 to see if the first addition was performed correctly. 


ADR 





Add r 



Mosi recently exam 
ined address si tow*', 
on tower l£ (X_ 



Examine 2044. 
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Addition performed 
correctly 


□ 

[exa] 



REG 





1 1 

A; d i d 
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r 
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a J 
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(7 

D 
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E 

c ‘ i 

. i - 



Resume execution. 


Old RO get decremented 3 


Yes. 


Resume execuiion. 


3.8.3 Using the Watchpoint 

In Paragraph 3.3 we identified the watchpoint (WP) and showed how it could be examined. In this section, 
you will learn how to use the WP for program analysis and debugging. 

The watchpoint is a convenient means of monitoring and altering a memory location. Once you set the 
watchpoint address to the address of a memory location, you can examine and alter that location just as 
you would a register. To set a watchpoint address, press the BPT key, then the BAC key. 

The upper row of LEDs displays: 


P n t i A d r 


and the lower row of LEDs displays the current WP address. 
If the WP is not set, the lower row of LEDs displays: 


O 0 O O 0 0 


You may now enter the new WP address by pressing the desired sequence of keys 0 through 7. You can 
clear the WP by setting its address to zero. 
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Using the Watchpoint - Example 1 

In our summation program in Paragraph 3.8, we used location 2044 to deposit our accumulated result. 
Since wc would like to examine (and possibly alter) this location frequently, we set our watchpoint address 
at 2044. 


KEY 
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DISPLAY 


LOWER 

DISPLAY COMMENTS 
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7T7 
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Current value of BPl 
displayed on 
lower LEDS. 


Enter watchpoint address 
of 2044. 


Now we can examine and alter the contents of location 2044 just as we would a register. If you run the 
summation program in Paragraph 3.8 and want to inspect the result, do the following. 


REG 



EXA 


CLR 




Current contents of 
2044 shown on 
lower LEDs. 


Current contents of 
2004 shown on 
lower LEDs. 


0 0 


Get into register mode. 


Examine WP. 


Clear it. 


You have just cleared the contents of location 2044. 

The watchpoint can be used in conjunction with the single-step function to continuously monitor the 
contents of a memory location. When this is done, the contents of the watchpoint appear on the upper row 
of LEDs, and the current PC appears on the lower row of LEDs. 
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Using the Watchpoint - Example 2 

You are still working with the summation program in Paragraph 3.8. You have established a watchpoint at 
location 2044, as shown in the previous example, and want to continuously monitor the contents of this 
location as you single step through the program. 

Set your initial conditions as before (R0 = 10, SP = 7400, PC = 2000) and key in the following. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


SST 


SST 


SST 


SST 


SST 


jSST 


SST 
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2000 executed; 

2044 contents shown on 
upper LEDs. 


2002 executed. 


2004 executed 


2006 executed. 


2012 executed. 
2044 has changed. 


2016 executed. 


2020 executed. 
2044 has changed, 


And so on. When you finish executing the program (e.g., after you have executed instruction 2032 in the 
example above), the upper row of LEDs displays: 


p c 


and the lower row of LEDs displays the current PC. 

3.9 USING THE HALT SWITCH 

Pressing the HALT switch causes you to unconditionally halt the operation of your program and return 
control to the DCTl 1-EM keypad. When you press the HALT switch, the upper row of LEDs displays: 


and the lower row of LEDs displays the current PC. 
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You can use the HALT switch, for example, to escape from an infinite loop your program is executing or 
to inhibit hardware problems which are interrupting the proper operation of the DCT11-EM. 

After pressing HALT, you are in register mode and can readily examine the contents of the DCTI 1-EM 
registers as described in Paragraph 3.3. 

3.10 THE INT SWITCH 

Pressing the INT switch causes you to generate a power-fail (PF) nonmaskable interrupt. Pressing this 
switch will have no effect on the operation of the DCTI 1-EM unless you specifically write a program that 
recognizes input from it. The program in the following example shows you how to use this switch to 
experiment with interrupts. Also refer to Chapter 6 for more information on interrupts. 

Using the INT Switch - Example 

This program simply loops on itself at location 1510 until you press the INT switch. Then the current PC 
and PS are pushed onto the hardware stack and the DCTI 1-EM goes to locations 24 and 26 for its new PC 
and PS, respectively. Location 24 is called the power-fail vector and usually points to a power-fail service 
routine. The first line of your program, however, changes location 24 to point to your own “power-fail 
service routine.” This routine, which you specify to start at location 1514, is not a power-fail service 
routine at all, but a routine that sets RO to the number of times (in octal) that the interrupt switch has been 
pressed. 

Enter the following. 



Octal 



Location 

Code 

Instruction 

Comments 

1500 

012737 

MOV #I5I4.<&#24 


1502 

001514 


Set power-fail vector to “service 




routine.” 

1504 

000024 



1506 

005000 

CLR R0 

Initialize R0. 

1510 

000777 

BR 1510 

Await interrupt. 

1512 

000000 

HALT 


1514 

005200 

INC R0 

Start of “service routine.” 

1516 

000002 

RTI 

Restore old PC and PS. 


Start the program at 1500 and press the INT switch a number of times. The upper and lower row of LEDs 
will be blank while you are pressing the INT switch. Each time you press INT, you execute the “service 
routine” which increments RO. When the routine is done, it returns to 1510 to await another INT switch 
press. Press the HALT switch to suspend operation and examine R0. 

3.11 THE USER LED 

The user LED is a general-purpose indicator lamp that your program can use to indicate the status of some 
condition. You can turn on the user LED by writing 000011 to port C of the 8255A parallel port chip (see 
Paragraph 6.5.1). Port C of the 8255A chip has an address of 177444. Writing 000010 to port C of the 
8255A chip turns off the user LED once it has been turned on by your program. 
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User LED - Example 

The following is a short program that turns the user LED on and off. Use the keypad to enter this program 
starting at location 1000. 



Octal 



Location 

Code 

Instruction 

Comments 

1000 

012737 

MOV #]l,fe#177444 

Write 11 to port C. 

1002 

000011 



1004 

177444 



1006 

012700 

MOV # 100000.R0 

Put a large number in R0. 

1010 

100000 



1012 

077001 

SOB R0.10I2 

Loop for a while. 

1014 

012737 

MOV #10,<g,#l 77444 

Write 10 to port C. 

1016 

000010 



1020 

177444 



1022 

012700 

MOV #!00000,RO 

Put a large number in R0. 

1024 

100000 



1026 

077001 

SOB R0J026 

Loop for a while. 

1030 

000137 

JMP &#1000 

Loop infinitely. 

1032 

001000 




3.12 PERFORMING KEYPAD SPECIAL FUNCTIONS 

There are five types of special functions you can perform through the use of the DCT) 1-EM keypad. 


Function Number 


Function Name 


0 

1 

2 

3 

4 


Cancel breakpoints 
Go with LEDs 
Start console 
Set baud rates 
Release protection 


To perform one of these special functions, you must first place the DCT11-EM in function mode. To do 
this, press the FNC key. The LEDs display: 



and you can now select a function by pressing any of the keys 0 through 4 or CLR, which is equivalent to 
0. When you have done this, the number of the selected function appears on the bottom row of LEDs. The 
selected special function is then activated by pressing the EXA key. 

The following paragraphs describe the operation of these special functions. 
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3.12.1 Function 0 - Cancel Breakpoints 

Function 0 clears all four breakpoint addresses and the watchpoint address. When function 0 is activated, 
the upper row of LEDs displays: 


IP jC 

-L_1_I_ 


and the lower row of LEDs displays the current value of the PC. The DCT11-EM is left in register mode. 

Function 0 - Example 

You are debugging a program you just entered and want to clear all the breakpoints and watchpoints 
Associated with an old program. 


KEY 


UPPER 

DISPLAY 


LOWER 

DISPLAY 


FNC 


□ 


EXA 


BPT 


BAC 


ADV 


Or 


ADV 




L 







L 


°\ 




Current PC shown on 
lower LEDs. 


0 

0 

o jo 

0 

0 


0 

O 

O 

° 

0 

0 


0 

o 

o 

o 

0 

0 


0 

0 

h 

0 

0 

0 1 


COMMENTS 


Get into function mode. 


Select function 0. 


Verify breakpoint 1 
cleared, 


Verify watchpoint address 
cleared. 


Breakpoint 1 again 


Verify breakpom! 2 
cleared. 


31112 Function I - Go With LEDs 

%ithin the DCT11-EM are a number of routines your program can call to display values on the LEDs (see 
fciragraph 5.3.1). For these routines to operate correctly, you must explicitly turn on the LEDs before you 
all a routine. One way to turn on the LEDs is to include a MOV #7,@# 177444 instruction in your 
jrogram (see Paragraph 5.3.1.1). Another way is to execute your program by activating function 1 rather 
Ain by pressing the GO key. Activating function 1 turns on the LEDs and starts your program. 
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3.12.3 Function 2 - Start Console 

If you connect a console terminal to your DCT11-EM, you will use function 2 frequently. Activating 
function 2 starts a program called the console monitor. The console monitor resides in the on-board 
PROMs and allows you to enter, execute, and debug programs through the use of a console terminal rather 
than the keypad. The console monitor also allows you to perform other operations and is described in more 
detail in Chapter 4. 

Before activating function 2, connect a console terminal to the DCTl 1-EM and select an appropriate baud 
rate by activating function 3 (see Paragraph 3.12.4). 

When function 2 is activated, the upper and lower LEDs are blank and the message: 

TEM CONSOLE MONITOR V1.0 
TEM> 

appears on the console terminal. 

3.12.4 Function 3 - Set Baud Rates 

The DCTM-EM has two serial ports: a console terminal port and an auxiliary serial port. Activating 
function 3 allows you to select baud rates for these ports. When the DCT11-EM is powered up, it 
automatically sets both baud rates to 9600. 

When you first activate function 3, the upper row of LEDs displays: 


o | n 


and the lower row of LEDs displays: 




— 

T 1 


0 

9 

1 _ 

6 0 0 
J—L_ 


This tells us that the console terminal port is currently set at 9600 baud. Note that the baud rate is 
displayed as a decimal number. 

Pressing the ADV and BAC keys steps you backward and forward among the various baud rate values 
available for the console terminal port. The available baud rates for the console terminal port are: 300, 
600, 1200, 2400, 4800, 9600, and 19200. 

You can now set the baud rate of the auxiliary serial port by pressing the EX A key. The first time you do 
this, the upper row of LEDs displays: 



and the lower row of LEDs displays: 


O 9 


6 I O O 
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This tells us that the auxiliary serial port is currently set at 9600 baud. Repetitively pressing any of the 
keys CLR, 0 through 9, ADV, or BAC causes you to alternate between two available baud rates. The two 
available baud rates for the auxiliary serial port are: the current baud rate of the console terminal port and 
one-fourth the current baud rate of the console terminal port. Pressing EXA again puts you into register 
mode. 

Fmction 3 - Example 

You want to use function 3 to experiment with setting baud rates for the console terminal serial port and 
(he auxiliary serial port. You have not altered these baud rates since powering up. 


UPPER 

KEY DISPLAY 


LOWER 

DISPLAY COMMENTS 




Get into function mode. 


Select function 3. 


Baud rate for console 
terminal porl = 9600 






Band rate for auxiliary 
part = terminal port. 


300 = one fourth of 1 200. 


Back to 1 200. 


Back to 300 
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Now in register mode. 
Console port = 1 200 
Auxiliary port — 300. 






























3.12.5 Function 4 - Release Protection 

There is an area of RAM that the DCT11-EM normally prevents you from directly altering from the 
keypad. This area is called the keypad monitor scratchpad and occupies the memory space from addresses 
7400 to 7777. Refer to Paragraphs 5.2 and 5.4.1 for more information about the keypad monitor and this 
protected area. 

Additionally, if you have a console terminal connected to your DCT11-EM, there are two other areas of 
RAM that are protected. These areas are the console monitor scratchpad and the symbol table. They 
occupy the memory space from addresses 6500 to 7377. Again, more information is provided in Chapter 
5. Activating function 4 releases the protection associated with these memory spaces. Note that “protec¬ 
tion” refers to protection from direct alteration via the keypad or console terminal. Programs that you 
write can and will alter these locations. Therefore, when you write your programs make sure these spaces 
are not inadvertantly violated. 

Protection is restored when you press the HALT switch, when a HALT instruction is encountered, or 
whenever you restart the DCT11-EM. 

When you activate function 4, the upper row of LEDs displays: 


p c 


and the lower row of LEDs displays the current value of the PC. 

Function 4 - Example 

You want to alter location 7400, a normally protected location. 


KEY 


UPPER LOWER 

DISPLAY DISPLAY COMMENTS 


FNC 



EXA 




Current PC shown on 
lower LEDs' 


Get »nto function mode. 


Select function 4. 


Protection off. 


Alter the location. 


ADR 





Most recently exam¬ 
ined address shown 
on lower LEDs. _ 


0 O 


7 4 


Alter 7400 
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Enter 2. 


□ 

□ 

exA 

— 

□ 




Restore protection by pressing the HALT switch. 


— 





© 

L 


ii 

[fi 

: 

U 



Current PC shown on 
lower LEDs. 


Sow try to alter location 7400. 



a | d 

d I r ^ 

_Lj_ 


0 j 0 | 7 
-_ 1 _1_ 

TV 

4 : 0 1 0 

-I L 


nr 


EXA 

-1- 

1 

P 


-1_ 




Sec Appendix C for more information on error messages. 


Protection restored. 


When you try to clear 7400 
you get a flashing error 
message. 


Now in register mode. 
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3.13 KEYPAD COMMAND SUMMARY 


OPERATION 


ALTER MEMORY 


ALTER REGISTER 


CANCEL BREAKPOINTS 


EXAMINE MEMORY 


EXAMINE REGISTER 


EXECUTE PROGRAM 


GO WITH LEDs 


RELEASE PROTECTION 


SET BAUD RATES 


SET BREAKPOINT 


SET WATCHPOINT 


SINGLE STEP 


START CONSOLE 


PRESS ENTER 


PRESS 


ADR 


LOCATION ADDRESS 


EXA 


REG REGISTER NUMBER EXA 


FNC 


□ 


EXA 


ADR 


LOCATION ADDRESS 


EXA 


REG REGISTER NUMBER 


GO 


FNC 

I_ 


□ 


EXA 


FNC 


4 


EXA 


FNC 


□ 


EXA 


BPT 


BREAKPOINT ADDRESS 


BPT 


BAC 


SST 


FNC 


0 0 


ENTER REFERENCE 


NEW CONTENTS 3.6 


NEW CONTENTS 3.4 


3.12.1 


3.5 


3.3 


3.7 


3.12.2 


3.12.5 


3.12.4 


3.8.2 


WATCHPOINT 

ADDRESS 


3.8.1 


3.12.3 
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CHAPTER 4 
CONSOLE OPERATION 


4.1 INTRODUCTION 

This chapter explains how to operate the DCT11-EM using a console terminal. Using a console terminal 
simplifies program development because it gives you access to the DCTll-EM’s symbolic assem¬ 
bler/disassembler. In addition, a console terminal allows you to perform several functions not accessible 
with the keypad, such as the ability to load programs from a host computer. 

When you complete this chapter, you will be able to use a console terminal to: 

• Examine and alter the contents of registers in the DCT11-AA register file 

• Examine and alter the contents of memory locations 

• Enter and execute programs 

• Debug your programs through the use of single steps, breakpoints, and watchpoints 

• Load programs from a host computer 

• Perform a variety of other console functions. 

You can connect an RS232-C compatible console terminal to your DCT11-EM as shown in Figure 4-1. 


STANDARD 25-PIN CONNECTOR AND CABLE 



Figure 4-1 Connecting a Console Terminal to the DCT11-EM 


No other wiring or jumpering is required. Use the DCT11-EM keypad to set the correct baud rate by 
activating function 3 (see Paragraph 3.12.4). Also, make sure your console terminal is set up to transmit 
and receive characters in the following format: asynchronous, ASCII, 8 bits (eighth bit is always space), no 
parity, one stop bit. 
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Then activate function 2 as described in Paragraph 3.12.3. The terminal displays: 

TEM CONSOLE MONITOR V1.0 

TEM> 

and the console monitor is ready to accept your input. 

The following default conditions arc set when the console monitor is started: 

1. The stack pointer is set to 6500 

2. The PASS2, NOHOST, INSTRU, SYMBOL, and VTOFF operating modes are set. 

More information about the stack pointer is given in Paragraph 5.2.1. The operating modes are described 
in detail elsewhere in this chapter and are summarized in Paragraph 4.18, 

4.2 TRANSFERRING CONTROL BETWEEN THE CONSOLE TERMINAL AND THE KEYPAD 

Either the console or the keypad can control the DCT11-EM, but not both at the same time. 

From the keypad, your primary means of transferring control to the console is by activating function 2 
(see Paragraph 3.12.3). You can regain keypad control by pressing the HALT switch. When you press the 
HALT switch, DCTl 1-EM operation is stopped and the LEDs display the current PC. 

From the console, you can transfer control back to the keypad by typing in the EXIT command or by 
executing a HALT instruction. 

4.3 GENERAL RULES FOR CONSOLE INPUT 

Information you input via the console terminal is typically in the form of commands, instructions, or data. 
In general, your input should conform with the following guidelines. 

1. Your input line must not exceed 96 characters in length. If you exceed this limit, the console 
terminal does not accept further input until you type in a CTRL/C or CTRL/Y. Then, you 
must reinput the line. 

2. Any number of commands and instructions can be strung together on a line as long as the line 
does not exceed 96 characters. 

3. Commands or instructions strung together on a line should be separated with a space or a 
comma. Extra separation characters (space, tab, line feed, form feed) between commands or 
instructions on a line are ignored. 

4. If a command or an instruction in a one-line string causes an error, the commands or instruc¬ 
tions following it are ignored. 

5. Extra separation characters (space, tab, line feed, form feed) inserted between parts of a 
command or instruction are ignored. 

6. Information preceded by a semicolon on a line is interpreted as a comment and is ignored by the 
DCTl 1-EM. 
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7. Pressing the DELETE key deletes characters on a line. As characters are deleted, they are 
echoed (preceded by a slash character) on the console terminal if you are in VTOFF mode. The 
console monitor defaults to VTOFF mode when it is started or restarted. Type in the VTON 
command if you are using a video terminal as a console device. VTON mode eliminates the 
echoing of deleted characters. Typing in VTOFF returns you to VTOFF mode from VTON 
mode. 

8. A line is terminated by pressing the RETURN key. Characters on a line are ignored until you 
press RETURN. In all the examples in this chapter, a RETURN is used to end your input line 
unless otherwise noted. 

A summary of the various forms of acceptable console input is given in Paragraph 4.18. Information about 
specific commands and instruction formats is given elsewhere in this chapter. 

4.4 CONSOLE CONTROL COMMANDS 

The DCT11-EM recognizes several control commands that allow you to easily perform a variety of 
operations from the console terminal. These commands and their typical uses are listed in Table 4-1. 


Table 4-1 Control Command Summary 


Command 

Meaning 

Typical Use 

CTRL/U 

CTRL/X 

Delete line. 

You made several typing errors in your input line. You want to cancel 
the line and try again. 

CTRL/R 

Display line. 

You used the DF.I.RTF, key several times while typing your input line. 
You want to see a clean version of the line you are editing. 

CTRI-/S 

Suspend execution. 

You want to suspend the operation of the console monitor or the 
execution of a currently running program. 

CTRL/O 

Resume execution. 

You have previously used the CTRL/S command and want to resume 
operation. 

CTRL/C 

CTRL/Y 

Abort operation. 

You want to abort the current operation of the DCTI l-LM and input 
a new line. 

CTRL/O 

Ignore host message. 

You arc in HOST mode (see Paragraph 4.17.1) and want to ignore 
information currently being sent by your host computer. 

CTRL/A 

Select option. 

You arc in TALK or LOAD modes (see Paragraphs 4.1 7.3 and 4.17.4) 
and want to select one of these four options: exit, resume, send break, 
send CTRL/A. 


45 EXPRESSIONS 

Several commands and instructions accept expressions as parameters. This paragraph familiarizes you with 
expressions and provides the rules for their definition. 

If you wish to ignore the use of expressions for the moment, you can advance to the paragraph that 
describes the command or function you are interested in. You can return to this paragraph when you need 
more detail on how to define an expression for a particular command or instruction. 
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An expression is simply a user-definable combination of one or more components called terms that 
represents a 16-bit number. There are three types of terms allowable in a DCT11-EM expression: 

• Numeric 

• Literal 

• Symbolic 

Numeric terms are either octal or decimal numbers. Octal numbers can be any sequence of the digits 0 
through 7. Decimal numbers can be any sequence of the digits 0 through 9 followed by a decimal point (.). 
Do not attempt to define decimal fractions. 

Examples of Numeric Terms 

100702 

377 

39874. 

A literal term is an ASCII character you use as data. Precede an ASCII character with an apostrophe (’) to 
form a literal term. 

Examples of Literal Terms 


’E 

i* 

’4 


Symbolic terms are values symbolized by names which are defined according to the rules in Paragraph 
4.13. 

Examples of Symbolic Terms 
R1 

PSPORC 

SUM 

Terms are joined together in an expression by binary operators. (The word binary in this case means that 
at least two terms are involved.) The DCT11-EM allows six types of binary operators: 

+ (addition) 

- (subtraction) 

* (multiplication) 

/ (division) 

& (logical AND) 

! (logical OR) 

The unary (one term) operators, + (plus sign) and — (minus sign), can only be used at the beginning of an 
expression (or parenthesized term). Multiple unary operators are not valid. 

Expressions are evaluated from left to right with no operator hierarchy rules. Two types of brackets can be 
used to nest expressions up to seven levels deep. Use angle brackets (< >) as you would arithmetic 
parentheses and use square brackets ([]) if you want the DCT11-EM to substitute the enclosed information 
with the contents of the memory word it addresses. Note that if the information in square brackets 
represents an odd address, it is first rounded down. 


4-4 



A quick way lo evaluate the octal value of an expression is to type in the expression followed by a question 
mark. This command has the form: 


expression? 

Expressions - Examples 

The following are examples of valid DCT11-EM expressions. You can verify the octal values of these 
expressions by using the question mark command. 


Expression 


Octal Value 


65209 177271 

7077+189.+’E 007501 

—2*<300/25>+70 000046 

i 20.*<—8.> 176100 

177777&25+3 000030 


4.6 EXAMINING REGISTERS 

There are two ways to examine registers. One way is to type in the appropriate register symbol followed by 
a question mark. This command has the general format: 

register symbol? 

where the register symbol (R0, Rl, etc.) is as defined in Paragraph 4.13.1. 

Another way to examine registers is to type in the SHOWRE command. The SHOWRE command 
displays the values of all the registers and the PS in ascending order. If a watchpoint has been set, it is also 
displayed. Paragraph 4.14.1, which describes program debugging, gives you an illustration of the 
SHOWRE command. 


4.7 ALTERING REGISTERS 

Registers are altered by using an equal sign to set the register to the desired value. The general format for 
this is: 

register symbol=expression 

where the register symbol (R0, Rl, etc.) is as defined in Paragraph 4.13.1 and the register is set to the 
value of the expression. (See Paragraph 4.5 for expression formats and conventions.) 

Altering Registers - Example 

Alter and examine the values of R0 and the SP. 

TEM> R0=65. 

TEM> SP=6500 
TEM> R0? SP? 

000101 

006500 

TEM> 

4.8 EXAMINING AND ALTERING MEMORY LOCATIONS-INTRODUCTORY CONCEPTS 

There are several ways to examine and alter memory locations. Before discussing the specific techniques, 
there are some introductory concepts you should be familiar with. 
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4.8.1 The Address Pointer 

The address pointer specifies your current open location, i.e., the address of the location currently 
available to you for alteration, ft is important to keep track of the address pointer because it determines 
where in memory you deposit information. As you will discover later, most commands which alter and 
examine memory locations are closely linked to the value of the address pointer. This paragraph gives an 
overview of how the address pointer can be affected. 

Since the DCTl 1-EM recognizes a period (.) as the symbol for the address pointer, you can manipulate the 
value of the address pointer just as you would any other symbol (see Paragraph 4.13.2). For example, to 
set the value of the address pointer use an equal sign; 

.=expression 

where the value of the address pointer is determined by the expression (see Paragraph 4.5). To determine 
the current value of the address pointer, use a question mark: 


Another way to set the address pointer is to use the backslash (\) character. The general format for a 
backslash command is: 

expression\ 

where the value of the address pointer is determined by the expression. This command also displays the 
memory location specified by the expression (see Paragraph 4.9). 

There are two other commands which affect the address pointer. These commands are the caret ( A ) 
command and the RETURN (or null line input) command. The effects of these commands depend upon 
which output format mode the DCTl 1-EM is in (see Paragraph 4.8.2). A description of their effects is 
given in Paragraphs 4.9 and 4.10. 

When you type in a program, the DCTl 1-EM automatically increments the address pointer for each 
instruction or data object you input. Note that whenever you power up, the address pointer is initialized to 
zero. 

Do not confuse the address pointer with the PC (program counter). They are unrelated. As you type in a 
program, the address pointer is incremented, but the PC is unaffected. And the execution of a program 
will affect the PC but not necessarily the address pointer. 

4.8.2 Output Formatting Modes 

When you examine memory locations, the values the DCTll-EM displays on the console depend upon 
your current output formatting mode. There are five output formatting modes: INSTRU, WORD, BYTE, 
SYMBOL, and ABSOLU. 

The INSTRU (or instruction disassembly) mode causes memory locations to be displayed as disassembled 
DCTl 1-AA instructions. INSTRU is one of the modes that the DCTl 1-EM is initalized to when you 
power up. 
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The WORD and BYTE modes cause memory locations to be displayed octally. Set the WORD mode (by 
typing in the WORD command) if you want the values of memory locations to be displayed as 16-bit 
words. Set the BYTE mode (by typing in the BYTE command) if you want the values of memory 
locations to be displayed as individual bytes. If you are in WORD or BYTE mode, type in the INSTRU 
command to return to instruction disassembly mode. Notice that the INSTRU, WORD, and BYTE 
commands are mutually exclusive. To summarize: 

Mode Memory Locations Are Displayed As 

INSTRU Disassembled DCT11-AA instructions 

BYTE 8-bit octal bytes 

WORD 16-bit octal words 

Odd addresses (i.e., upper bytes) can only be examined in BYTE mode. If you try to examine an odd 
address in INSTRU or WORD mode, an error message results. 

The SYMBOL and ABSOLU modes determine how the symbols you have defined in your program are to 
be displayed. You will usually use SYMBOL and ABSOLU in conjunction with instruction disassembly 
(INSTRU) mode. 

If your program contains user-defined symbols (see Paragraph 4.13), these symbols will be displayed only 
if you are in SYMBOL mode. SYMBOL is one of the modes the DCT11-EM is initialized to when you 
power up. 

If you want user-defined symbols to be displayed as octal values, type in the ABSOLU command to set the 
ABSOLU mode. Typing in SYMBOL restores the SYMBOL mode. Note that SYMBOL and ABSOLU 
are mutually exclusive. To summarize: 

Mode User-Defined Symbols Are Displayed As 

SYMBOL Symbols 

ABSOLU Octal values 

4.9 EXAMINING MEMORY LOCATIONS 

This paragraph summarizes the commands with which you can examine memory locations. The examples 
in this paragraph are intended to give you a general idea of what to expect when you use these commands 
in different output formatting modes. 

One way to examine a memory location is to type in the desired memory location followed by a backslash. 
The general format for this command is: 

exprcssion\ 

where the memory location you examine is determined by the value of the expression (see Paragraph 4.5). 
The backslash command also sets the address pointer, so a location examined with a backslash becomes 
the current open iocation. 
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Examining Memory Locations - Example 1 

Use the backslash command to examine a memory location. Try this in different output formatting modes. 
You have not altered any memory locations from their initial (power-up) values. 

TEM> WORD 
TEM> 2000\ 

002000 : 000000 
TEM> !00\ 

000100: 135676 
TEM> BYTE 
TEM> 100\ 

000100: 276 
TEM> INSTRU 
TEM> 140000\ 

140000: JMP 155334 
140004: 

TEM> 

Examining Memory Locations - Example 2 

You use the backslash command to try to examine location 1001 without first typing in the BYTE 
command. This causes an error message to be generated. 

TEM> INSTRU 
TEM> 1001\ 

001001 : 

\\\ 

ODD ADDRESS 
TEM> 

Another way to examine memory locations is to simply press the RETURN key. When you press the 
RETURN key as a command input, the result depends on both your output formatting mode and the 
value of the address pointer. If you are in INSTRU mode, RETURN displays the next eight instructions 
relative to the address pointer. In WORD mode, the contents of the next eight words relative to the 
address pointer are displayed. In BYTE mode, the contents of the next eight bytes relative to the address 
pointer are displayed. Note that the RETURN command is ignored when you are loading a program from 
a host computer (see Paragraph 4.17). 
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Examining Memory Locations - Example 3 

You want to examine memory locations by pressing the RETURN key. You have not altered these 
locations since you have powered up. Start with location 1000. 

TEM> INSTRU 
TEM> 1000\ 

001000: HALT 
001002 : 

TEM> 

001000: HALT 
001002: HALT 
001004: HALT 
001006: HALT 
001010: HALT 
001012: HALT 
001014: HALT 
001016: HALT 
001020 : 

TEM> WORD 
TEM> 


001000: 000000 
TEM> 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

001020: 000000 
TEM> BYTE 
TEM> 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

001020: 000 
TEM> 

000 

000 

000 

000 

000 

000 

000 

001030: 000 

000 

000 

000 

000 

000 

000 

000 


TEM> 

A one-line string of bytes or words is numbered from left to right. 

Note that consecutive RETURN keypresses increment the address pointer but nonconsecutive ones do 
not. For example, in WORD mode you incremented the address pointer from 1000 to 1020 by pressing 
RETURN twice in a row. In BYTE mode you incremented the address pointer from 1020 to 1030 by 
pressing RETURN twice in a row. Pressing RETURN only once (as you did in INSTRU mode) had no 
effect on the address pointer. 

A way to examine a range of memory locations is to use the underscore (_) character. The general format 

for this command is: 

expression 1_expression2 

• here the beginning of the range is determined by the value of expression 1 and the end of the range is 
determined by the value of expression2. See Paragraph 4.5 for expression formats. 

Expression 1 should be less than expression2. If it is not, only one location is displayed: the beginning of 
range location. 

The use of the underscore command has no effect on the address pointer. 
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Examining Memory Locations - Example 4 

You want to examine groups of memory locations by using the underscore command. Try this command 
in INSTRU, WORD, and BYTE modes. These memory locations have not been altered since you have 
powered up. 

TEM> INSTRU 
TEM> 2000\ 

002000: HALT 
002002 : 

TEM> 1004_1012 
001004: HALT 
001006: HALT 
001010: HALT 
001012: HALT 
001014: 

TEM> WORD 
TEM> 1002—1006 


001002: 000000 
TEM> BYTE 

000000 

000000 






TEM> 1005—1020 
001005: 000 

000 

000 

000 

000 

000 

000 

000 

001015: 000 

000 

000 

000 






TEM> INSTRU 
TEM> 


002000: HALT 
002002: HALT 
002004: HALT 
002006: HALT 
002010: HALT 
002012: HALT 
002014: HALT 
002016: HALT 
002020 : 

TEM> 

Notice that the address pointer value of 2000 which was set at the beginning of the example is still 2000 at 
the end of the example. 

4.10 ALTERING MEMORY LOCATIONS 

You can deposit data into a memory location by setting the address pointer to the address of the location 
you wish to alter and typing in the information. The address pointer is automatically incremented as you 
deposit instructions and data to consecutive memory locations (as when you type in a program, for 
example). 

If you make an error during data entry, you can use the caret ( A ) command to decrement the address 
pointer and retype the input line. In INSTRU and WORD modes, the address pointer is decremented by 
one word for each caret command, and in BYTE mode it is decremented by one byte for each caret 
command. 
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Altering Memory Locations - Example 1 

You type in a short program starting at address 1000. You make an error while typing in the program and 
use the caret ( A ) command to help you correct the error. You then examine the program. The program 
adds Rl to R2 and places the result in R3. The final line restarts the console monitor so that you will get a 
TEM> prompt after you execute the program. 


TEM> INSTRU 
TEM> .=1000 
TEM> MOV Rl,R3 
TEM> ADD R2,R4 
TEM> a 

TEM> ADD R2,R3 
TEM> JMP @#140010 
TEM> 1000\ 

001000: MOV R1,R3 

001002 : 

TEM> 

001000: MOV R1,R3 

001002: ADD R2,R3 

001004: JMP @#140010 

001010: HALT 
001012: HALT 
001014: HALT 
001016: HALT 
001020 : 

001022 : 

TEM> 

Altering Memory Locations - Example 2 

You type in some data starting at location 2000. You type several values on a line, remembering to include 
separation characters (in this case, spaces) between them. You then examine the data you have typed in. 

Comments 

TEM> =2000 

TEM> 1 2 3 4 ;type in four data values 

TEM> .? ;the address pointer is incremented 

002010 

TEM> .=2000 reinitialize the address pointer 

TEM> WORD 

TEM>_+10 ;examine the data 

002000: 000001 000002 000003 000004 000000 

TEM> 

4.11 INSTRUCTION FORMAT 

This paragraph provides some guidelines for formatting instructions for input to the DCT11-EM. A 
complete description of the instruction set is found in the DCTil-AA User’s Guide (EK.-DCT11-UG). 

An acceptable instruction consists of the instruction mnemonic followed by the appropriate string of 
operands (if any). A separation character (space, tab, feed) must be used to separate a mnemonic from its 
first operand (if any). A comma must appear between two operands in a two-operand instruction. 

Expressions can be used as operands, if desired. Refer to Paragraph 4.5 for expression formats. 


Comments 


;you really wanted to type ADD R2,R3 
;decrement address pointer by one word 
;type in correct line 
;continue typing in program 
;now examine your program 
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If you wish, you may enter your instructions in octal format, rather than in assembly language format. 
Refer to Chapter 6 of the DCT11-AA User’s Guide for information on constructing octal equivalents of 
instructions. 


4.12 TYPING IN A PROGRAM 

Set the address pointer to 2000 and type in the summation program from Paragraph 3.8 as shown below. 


TEM> -2000 
TEM> CLR R1 
TEM> CMP R0,R1 
TEM> BLE 2034 
TEM> CLR @#2044 
TEM> MOV R0,@#2044 
TEM> DEC R0 
TEM> ADD R0,@#2044 
TEM> BVS 2036 
TEM> CMP R0,R1 
TEM> BGT 2016 
TEM> HALT 
TEM> CLR R0 
TEM> CLR @#2044 
TEM> HALT 
TEM> 


Now verify you have typed in the program correctly by setting the address pointer to 2000 and repeatedly 
pressing the RETURN key. If you are in INSTRU mode, the following will be displayed. 


TEM> =2000 

TEM> 


002000: CLR 

R1 

002002: CMP 

R0,RI 

002004: BLE 

002034 

002006: CLR 

@#002044 

002012: MOV 

R0,@#002044 

002016: DEC 

R0 

002020: ADD 

R0,@#002044 

002024: BVS 

002026: 

TEM> 

002036 

002026: CMP 

R0,R1 

002030: BGT 

002032: HALT 

002016 

002034: CLR 

R0 

002036: CLR 

002042: HALT 
002044: HALT 
002046: HALT 
002050: 

TEM> 

@#002044 


The address pointer is automatically incremented each time you type in an instruction. 
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^ ou may want to use symbolic names to represent values such as 2044 (the location of the accumulated 
«ml to increase the readability of the program. The next few paragraphs tell you how to define and 
•tanipulate symbols. 

If you want to execute the program and learn how to use the DCT11-EM’s console debugging facilities, 
advance to Paragraph 4.14. 

4.13 USING SYMBOLS 

The DCTU-EM allows you to define symbols in your programs. This paragraph describes the formats 
required for DCT11-EM symbols and explains the use of the commands which allow you to define and 
manipulate symbols. 

4 . 13.1 Symbol Names 

The following characters may be used in symbol names. 

A through Z 
0 through 9 
. (Period) 

$ (Dollar sign) 

A symbol name must not begin with 0 through 9, however. 

A symbol name may have any length; however, only the first six characters are stored by the DCT11-EM. 
Thus, to avoid ambiguities, make the first six characters of your symbol names unique. 

The following predefined symbol names are reserved. 


R0 

Register 0 

RI 

Register 1 

R2 

Register 2 

R3 

Register 3 

R4 

Register 4 

R5 

Register 5 

SP 

Stack pointer (register 6) 

PC 

Program counter (register 7) 

PS 

Processor status word 

WP 

Watchpoint address 


Address pointer 

B1 

Breakpoint 1 

B2 

Breakpoint 2 

B3 

Breakpoint 3 

B4 

Breakpoint 4 


These predefined symbols must not be used as user-defined symbol names, although they can be used as 
arguments in expressions, instructions, or commands. 

DCT11-EM directives, commands, and DCT11-AA instruction mnemonics (e.g., MOV, ADD, JMP) are 
also reserved and must not be used as symbol names. 
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4.13.2 Commands That Define And Manipulate Symbols 

There are two ways you can define a symbol. One way is to use the equal sign (=) to equate a symbol to a 
specific value. The general format of this is: 

symbol=expression 

where the value of the symbol is determined by the expression. 

The other way of defining a symbol is to use a colon (:). The colon defines a symbol as the label of the 
current address. The general format of this is: 

symbol: 

where the value of the symbol is defined as the value of the address pointer. 

Once you have defined a symbol, you cannot redefine it unless you first delete it. Symbol deletion is 
accomplished with the DELETE command. This command has the general format: 

DELETE symbol 

where the name of the symbol you wish to delete follows the command. The DELETE command causes 
the DCT11-EM to display the symbol and its value as it performs the deletion. 

Predefined symbols (see Paragraph 4.13.1) cannot be deleted with the DELETE command. Predefined 
symbols can be redefined, however, by using the equal sign. 

When you define a symbol, it is stored in an area called the user symbol table. There is sufficient space in 
the user symbol table to store up to 66 symbols. If you try to define more than 66 symbols, you will cause 
an error message to be generated. 

If you want to display your user symbol table, type in the SHOWSY command. The symbols are displayed 
in the order in which you defined them, starting with the most recently defined symbol. 

If you want to delete your entire symbol table, type in the CLEAR command. The CLEAR command is 
typically used at the beginning of a long program or a program you are loading in from a host computer 
(see Paragraph 4.17). CLEAR gives the program plenty of room in the symbol table for symbols and 
avoids conflicts between symbol names in the program and any symbol names you may have previously 
defined. 

If you want to display the value of an individual symbol, type in the symbol followed by a question mark 
(?). The general format for this is: 

symbol? 
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Defining and Manipulating Symbols - Example 1 

You set the address pointer to 1000 and define the symbols FIRST, SECOND, and THIRD. You 
experiment with displaying and deleting these symbols. 


TEM> CLEAR 
TEM> .= 1000 
TEM> FIRST: 

TEM> SECOND=FIRST+100 

TEM> THIRD=SECOND+300 

TEM> SHOWSY 

THIRD = 001400 

SECOND= 001100 

FIRST = 001000 

TEM> DELETE FIRST 

FIRST = 001000 

TEM> SHOWSY 

THIRD - 001400 

SECOND= 001100 

TEM> CLEAR 

TEM> SHOWSY 

TEM> 


SECOND is set equal to 1100 because FIRST equals 1000 at the time of definition. If you delete FIRST 
after you delete SECOND SECOND will be unaffected. 

4.14 EXECUTING AND DEBUGGING PROGRAMS 

Refer to the summation program you typed in (Paragraph 4,12). You will make some minor changes to 
this program and use the DCT1 l-EM’s debugging facilities to observe its operation. 

First, replace memory location numbers with symbolic names (see Paragraph 4.13). 

TEM> 1LLIN=2034 
TEM> SUM-2044 
TEM> OVFLO=2036 
TEM> LOOP-2016 
TEM> 


Instead of having the program HALT when it completes execution (which returns control to the keypad), 
vou want it to restart the console monitor and give you a TEM> prompt. You do this by placing a JMP 
e* 140010 instruction at location 2032 which restarts the console monitor when executed. 


TEM> .=2032 
TEM> JMP @#140010 
TEM> 


Now set your initial conditions as follows. 


TEM> R0=100 
TEM> PC=2000 
TEM> SP=6500 
TEM> 
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Then execute the program by typing in the GO command. 

TEM> GO 
TEM> 

To check the result, examine SUM. 

TEM> SUM\ 

SUM : 004040 
TEM> 

This is the correct sum in octal of the numbers from 0 to 100 (octal). 

4.14.1 Using The Watchpoint 

The DCT11-EM recognizes WP as the symbol for the watchpoint. Set the watchpoint address by using the 
equal sign command. The general format for this is: 


WP=expression 

where the watchpoint address is determined by the value of the expression. 

For example, to monitor the accumulated sum in your program, set your watchpoint at the location SUM. 

TEM>WP=SLM 

TEM> 


Now reset your initial conditions (set R0=100) and execute the program. After you receive the TEM> 
prompt, use the SHOWRE command to examine your registers. 


TEM> SHOWRE 

R0 

= 000000 

R1 

= 000000 

R2 

= 000000 

R3 

= 000000 

R4 

= 000000 

R5 

= 000000 

SP 

* 006500 

PC 

= 002000 

PS 

= 000004 

SUM 

: 004040 

TEM> 



Notice your watchpoint appears as well. Another way to examine the watchpoint is to use the question 
mark command. WP? displays numerically the watchpoint address. [WP]? displays numerically the 
watchpoint contents. 

TEM> WP? 

002044 
TEM> [WP]? 

004040 

TEM> 

The watchpoint can be cleared by setting it to zero or by typing in the CANCEL command, which not 
only clears the watchpoint but the breakpoints as well. 
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4.14.2 Using the Single-Step Function 

Single stepping is accomplished by typing in the STEP command. STEP executes the instruction at the 
current PC and displays: (1) the new values of your registers and watchpoint, and (2) the next instruction 
to be executed. 

To experiment with the STEP command, reset the initial conditions for your program {set R0=100) and 
type in STEP. You can then continue single stepping by repeatedly pressing the RETURN key. 

TEM> STEP 
RO = 000100 

R! = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002002 

PS = 000024 

SUM : 004040 

002002 : CMP R0,R1 
002004 : 

TEM> 

R0 = 000100 

R1 = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002004 

PS = 000020 

SUM : 004040 

002004 : BEE ILLIN 
002006 : 

TEM> 

R0 = 000100 

Rl = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002006 

PS = 000020 

SUM : 004040 

002006 : CLR @#SUM 
002012 : 

TEM> 

R0 = 000100 

Rl = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 
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SP = 006500 

PC = 002012 

PS = 000024 

SUM : 000000 

002012 : MOV R0,@#SUM 

LOOP : 

TEM> 

R0 = 000100 
R1 = 000000 
R2 = 000000 
R3 = 000000 
R4 = 000000 
R5 = 000000 
SP = 006500 
PC = LOOP 
PS = 000020 
SUM : 000100 
LOOP : DEC R0 
002020 : 

TEM> 

R0 = 000077 
R1 = 000000 
R2 = 000000 
R3 = 000000 
R4 = 000000 
R5 = 000000 
SP = 006500 
PC = 002020 
PS = 000020 
SUM : 000100 
002020 : ADD R0,@#SUM 
002024 : 

TEM> 

R0 = 000077 
Rl = 000000 
R2 = 000000 
R3 = 000000 
R4 = 000000 
R5 = 000000 
SP = 006500 
PC = 002024 
PS = 000020 
SUM : 000177 
002024 : BVS OVFLO 
002026 : 

TEM> 

The program is functioning properly; R0 is getting decremented and added to SUM. 
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4 . 14.3 Using Breakpoints 

The use of breakpoints with a console terminal is similar to the use of breakpoints with the keypad (see 
Paragraph 3.8.2). 

The DCT11-EM recognizes Bl, B2, B3, and B4 as the symbols for the four breakpoints. Set a breakpoint 
using the equal sign command. The general format for this is: 

breakpoint symbol=expression 

•here the breakpoint is determined by the value of the expression. 

For example, to set breakpoints at locations 2020 and 2024 in the summation program (as you did with the 
krspad), type in: 

TEM> B 1=2020 
TEM> B2=2024 
TEM> 

Now reset your initial conditions (set R0=100, PC=2000) and execute the program. 

TEM> GO 

BREAK POINT ENCOUNTERED 
002020: ADD R0,@#SUM 
002024: 

TEM> 

You get a message which indicates that your first breakpoint (Bl) was encountered by the console monitor. 
To determine the current state of your program, type in the SHOWRE command. 

TEM> SHOWRE 
R0 = 000077 
R1 = 000000 
R2 - 000000 
R3 = 000000 
R4 = 000000 
R5 = 000000 
SP = 006500 
PC = 002020 
PS = 000000 
SUM : 000100 
TEM> 
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You see that RO has been correctly decremented. When you type in GO again: 


TEM> GO 

BREAK POINT ENCOUNTERED 

002024; BVS OVFLO 

002026: 

TEM> 

the console message appears (this time because of B2), and you again examine the state of your program. 

TEM> SHOWRE 
R0 = 000077 

R1 = 000000 

R2 = 000000 

R3 = 000000 

R4 = 000000 

R5 = 000000 

SP = 006500 

PC = 002024 

PS = 000000 

SUM : 000177 

TEM> 

You see that the first addition was performed correctly. You can continue to observe the operation of the 
program by typing in the GO and SHOWRE sequence as just shown. 

To examine a breakpoint, type in Bl?, B27, B3?, or B47. Breakpoints can be cleared by setting them to 
zero or by typing in the CANCEL command, which not only clears the breakpoints but the watchpoint as 
well. 

4.15 DCT11-EM DIRECTIVES 

As a convenience for users who are familiar with assemblers (and in particular the PDP-t 1 MACRO-11 
assembler), the DCT11-EM recognizes several directives which are simitar to those used in the MACRO- 
11 language. These directives are listed in Table 4-2 with a brief explanation of their operation. For 
detailed information about how to use these directives in your programs, refer to the PDP-11 MACRO-11 
Language Reference Manual (AA-5075A-TC). 
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Table 4-2 DCT11-EM Directives 


Directive Form 

Operation 

\SCI1 /string/ 

Generates a block of data containing the ASCII equivalent of the character string 
(enclosed in delimiting characters), one character per byte. The delimiting characters can 
be slashes or any other visible character. The ASCII code for each character is stored in 
successive bytes of memory starting at the location indicated by the current address 
pointer. The address pointer is advanced by the length (in characters) of the enclosed 
string. 

BTKB expr 

Reserves a block of storage space whose length in bytes is determined by the specified 
expression. The current address pointer is advanced by the value of the expression. 

BLEW expr 

Reserves a block of storage space whose length in words is determined by the specified 
expression. The current address pointer is advanced by two times the value of the 
expression. 

8^TE expr], expr2, • ■ • 

Generates successive bytes of data: each byte contains the value of the corresponding 
specified expression. The lower eight bits of each expression are stored in successive bytes 
of memory, starting at the location indicated by the current address pointer. The address 
pointer is advanced by the number of expressions given. The last expression must not be 
followed by a comma. 

inen 

Ensures that the current address pointer contains an even address by adding 1 if it is odd. 

»ORD exprl. expr2, • • • 

Generates successive words of data; each word contains the value of the corresponding 
specified expression. The value of each expression is stored in successive words of memory 
starting at the location indicated by the current address pointer. The address pointer is 
advanced by two times the number of expressions given. The last expression must not be 
followed by a comma. 


416 MISCELLANEOUS CONSOLE FUNCTIONS 

Hie DCT11-EM has a HELP facility which displays all the commands available to you. To invoke this 
facility, type in HELP. 

You can display the current operating modes of the DCTl 1-EM by typing in the SHOWMO command. 
%ben you first power up, typing in the SHOWMO command displays the default operating modes: 

PASS2 NOHOST INSTRU SYMBOL VTOFF 

The operating modes that can be displayed are: PASSl, PASS2, HOST, NOHOST, INSTRU, WORD, 
IYTE, SYMBOL, ABSOLU, VTON, and VTOFF. See the command summary in Paragraph 4.18 for 
hnef descriptions of these modes. The command summary also contains references to paragraphs that 
ctplain the modes in detail. 

The DCTl 1-EM has a REPEAT function which allows you to repeatedly input a line of commands or 
■Biructions. The form of this command is: 

REPEAT expression,input line 


4-21 




where the input line is executed the number of times specified by the value of the expression. One 
application of the REPEAT command is to fill memory. For example, the REPEAT 1000,NOP com¬ 
mand will fill 1000 (octal) locations with NOP instructions. The REPEAT command also lets you single 
step without having to press the RETURN key repeatedly (see Paragraph 4.14.2). The REPEAT 7, STEP 
command, for example, single steps through your program seven times. 

Repeat Command - Example 

A third application of the REPEAT command is to move blocks of memory. You must specify the 
beginning and ending addresses of the range to be moved (the source range) and the beginning address of 
the destination range. The general format for a command sequence which moves a block of memory is: 

TEM> .—destination 

TEM> REPEAT <end-start>/2+l,[.+start-destination] 

where start and end are the beginning and ending addresses (respectively) of the source range, and 
destination is the beginning address of the destination range. Both ranges must begin at even addresses, 
and only words of memory can be transferred. 

For example, if you want to move the contents of locations 1000 through 1010 to 2030 through 2040, type 
in the following. 

TEM> =2030 

TEM> REPEAT <1010-1000>/2+l,[.+1000-2030] 

4.17 LOADING THE DCTU-EM FROM A HOST COMPUTER 

This paragraph describes how to load information (usually a program) from a host computer into your 
DCT11-EM. Two broad areas are covered. First, you are familiarized with the console monitor commands 
that initiate and control the host loading process. Second, you are shown how to prepare a DCT11-EM 
loadable program on your host. 

4.17.1 Configuring the DCT11-EM for Host Loading 

Since host loading is accomplished through the use of console monitor commands, you must have your 
DCT11-EM connected to a console terminal. 

Your host computer must have a serial communication line capable of sending data to the DCT11-EM in 
ASCII text format. Connect the serial line from the host to the DCT11-EM auxiliary serial port connector 
(J3) as shown in Figure 4-2, 


STANDARD 25-PIN CONNECTOR AND CABLE 



DCT11-EM 


Mn 102S4 


Figure 4-2 Connecting a Flost Computer to the DCTI 1-EM 
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No other wiring or jumpering is required. Set the baud rate of your console terminal equal to the baud rate 
of your host line. Use the DCT11-EM keypad to set the same baud rate for the console serial port by 
activating function 3 as described in Paragraph 3.12.4. Also make sure you are set up to transmit and 
receive characters in the following format: asynchronous, ASCII, 8 bits (eighth bit is always space), no 
parity, one stop bit. 

You need not set the baud rate of the auxiliary serial port. When you communicate with a host, the 
DCTtl-EM automatically sets the baud rate of the auxiliary serial port equal to the baud rate of the 
console serial port. 

Activate function 2 as described in Paragraph 3.12.3 to start the console monitor. When the console 
displays a prompt, type in; 

TEM> HOST 

The HOST command places you in HOST mode and is a prerequisite for performing any operation with a 
host computer. 

HOST mode only allows you to receive messages from the host. If you want to communicate directly with 
the host, use the TALK command in addition to HOST. If you want to load information from the host, use 
the LOAD command in addition to HOST. The TALK and LOAD commands are explained in 
Paragraphs 4.17.3 and 4.17.4. 

The NOHOST command cancels HOST mode. 

4.17.2 The HOST Command 

Typing in the HOST command has two effects: 

1. It defines the auxiliary serial port as a host communication line. 

2. It creates an input buffer to hold information received from the host. 

A HOST> prompt precedes any messages you receive from your host while in HOST mode. 

Host Mode - Example 

You are in HOST mode and you receive a message from the host before you finish typing an input line. If 
you simply continue typing the line, the console monitor restores the interrupted line and appends your 
new material to it. Messages from the host are ignored as console input. 

Comments 

TEM> HOST 
TEM> MOV R0.R1 

TEM> MOV R ;You were typing MOV R0.R2 

HOST> 

This is a message from the host... 

TEM> MOV R0.R2 ;You type 0,R2 and the previous line is restored. 

TEM> 

4.17.3 The TALK Command 

Tvping in the TALK command allows you to communicate dircctlv with the host just as if the DCT11- 
EM were not there. It has the same effect as connecting the serial line from the host directly to your 
console terminal. 
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Typically, you might use the TALK mode to prepare a DCTI 1-EM loadable file with your host’s editing 
facilities (see Paragraph 4.17.5). 

The user LED is illuminated in TALK mode. 

There are two ways to cancel TALK mode. One way is to press the BREAK key on the console. The 
DCTI 1-EM responds: 

CONSOLE BREAK 
TEM> 

and you not only cancel TALK mode but HOST mode as well. The other way is to type in CTRL/A. The 
DCTI 1-EM responds: 

E (EXIT). R (RESUME), B (SEND BREAK), A A (SEND A A) ? 

If you type in the letter E, TALK mode is canceled but HOST mode is not. 

Note that typing in CTRL/A ( A A) in TALK mode gives you three other options. You can send a break or 
CTRL/A character to the host by typing in B or CTRL/A, respectively. Typing in an R or any characters 
other than E, B, or CTRL/A, causes TALK mode to be resumed. 

4.17.4 The LOAD Command 

Use the LOAD command only after you have prepared a DCTI l-EM loadable program on your host as 
explained in Paragraph 4.17.5. 

Typing in the LOAD command allows you to communicate directly with the host just as the TALK 
command does. In LOAD mode, however, the DCTI 1-EM constantly monitors the characters received 
from the host and begins loading if it sees the .START directive. 

To initiate host loading while in LOAD mode, therefore, simply enter a command (which depends on the 
particular host you are using) that types out your program on the console terminal. For example, if you 
were using a VAX/VMS host, you would use TYPE PROG.TXT to type out the file PROG.TXT on your 
terminal. Since your DCTI 1-EM loadable program always has the .START directive as its first line, 
typing the program causes the DCTI 1-EM to start loading. 

NOTE 

During the loading process, the DCTI 1-EM accepts 
input from both serial ports simultaneously. As a 
rule, do not press keys on the console terminal dur¬ 
ing loading since this interferes with your host’s 
input. The only exception to this rule is the use of 
the CTRL/O command (see below). 

Once loading begins, it continues until the .END directive is received or until an error in the incoming 
program is detected. In both cases, when loading stops, you are returned to HOST mode. If loading stops 
as a result of an error in your program, the portion of the program that follows the error will be displayed 
on your console terminal as a “message” from the host. 

If loading is terminated by an error in your program, you can suppress further display of the program by 
typing in the CTRL/O command. CTRL/O causes the DCTI 1-EM to ignore messages from the host until 
you press the RETURN key. If you want to terminate output from the host, enter CTRL/O followed by 
the TALK command followed by the appropriate interrupt control sequence your host recognizes (such as 
CTRL/Y or CTRL/C). 
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Note that the user LED is illuminated in LOAD mode. Also note that pressing BREAK or typing in 
CTRL/A has the same effect in LOAD mode as in TALK mode. 

4.17.5 Preparing DCT11-EM Loadable Programs on a Host 

In general, you will find it convenient to use your host’s editing facilities to create programs. This is 
particularly true if the programs are long or require extensive alteration. In order to prepare a program the 
DCT11~EM will accept, keep the following in mind. 

Make sure the .START directive precedes your program. The DCT11-EM will not be able to load your 
program unless it first sees the .START directive. 

Next, realize that when your program is loaded into the DCT11-EM, the DCT11-EM will behave as if 
each line of your program were being entered by you directly from the console terminal. This means that 
the rules and conventions of console monitor input apply also to each line of the program you create on 
your host. The one exception is that the null line command (i.e., pressing RETURN to examine successive 
memory locations) is disabled during host loading. 

If your program contains undefined symbols or expressions (for example, a “forward reference”), prepare 
your program as two identical segments. Precede the first segment with the PASSl command and the 
second segment with the PASS2 command. The idea behind the PASSl and PASS2 commands is as 
follows. 

Normally, the DCT11-EM does not allow you to input undefined symbols. This mode of operation is 
called the PASS2 mode (PASS2 is one of the power-up default modes of the DCTII-EM). The use of 
undefined symbols in your programs, however, is commonly desirable. For example, consider the following 
program segment. 

CMP # 177700,RI 
BNE .+ 14 
INC R2 
CMP R2J200 
BLO .+4 
CLR R2 
MOV R2.R3 

In this example, you are branching to a defined location (i.e., the location that contains the MOV R2,R3 
instruction), but are doing so in a cumbersome way. You need to perform a calculation for each branching 
instruction. An easier way to write this program segment would be: 

CMP #177700,R1 
BNE THERE 
INC R2 
CMP R2J200 
BLO THERE 
CLR R2 

THERE: MOV R2,R3 

But if the DCTI 1-EM is in a mode in which it rejects undefined symbols, an error results when you try to 
input BNE THERE. 

The DCTI 1-EM solves this problem by having a mode of operation in which undefined symbols are 
tolerated called the PASSl mode. 
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In the PASSl mode, the DCT11-EM substitutes the value zero for each undefined symbol encountered in 
expressions except when the undefined symbol is the operand of a branch instruction. In that case, the 
value of the current address pointer is substituted for the value of the branch operand. If an undefined 
symbol is later defined through the use of an equal sign (=) or colon (:), the symbol is entered into the 
symbol table with its proper value. 


NOTE 

Undefined expressions involving the address pointer 
are never tolerated, not even in PASSl. For example 
if A, B, and C are undefined, the following are 
unacceptable: 

.=A 

.BLKB B 
.BLKW C 

Make sure the .END directive terminates your program. 

A DCT11-EM Loadable Program - Example 1 

Use your host's editing facilities to create the summation program presented in Paragraph 3.8. Comments 
from the original program are shown in lowercase, and comments added for the benefit of the example are 


shown in uppercase. 


START 

;THIS LINE MUST APPEAR FIRST. 

. - 2000 

;ENTER THE PROGRAM STARTING AT LOCATION 2000. 

CLR R1 

;Set R1 = 0. 

CMP R0.R1 

;R0 contains n. 

BLE 2034 

ililegal input (n < 0)? 

CLR @#2044 

;No, start operation by clearing 2044. 

MOV R0,@#2044 

;P!ace first value of n in 2044. 

DEC R0 

;n = n—1 

ADD R0,@#2044 

;Add next value (n-1) to 2044. 

BVS 2036 

;Overflow? 

CMP R0,R1 

;No. 

BGT 2016 

;Continue operation if n > 0. 

HALT 

;Operation complete if n = 0. 

CLR R0 

;Yes, illegal input. Clear R0, 2044. 

CLR @#2044 

;Yes, overflow. Clear 2044 only. 

HALT 

;I]]egal input or overflow occurred. 

.END 

;STOP HOST LOADING. 
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A DCT1I-EM Loadable Program - Example 2 

In this example, the summation program above is changed slightly such that forward references to the 
symbols ILLIN and OVFLO are made. Since these symbols are undefined when first referenced, you must 
create the program in two segments to make it acceptable to the DCT11-EM. 


START 

CLEAR 

PASS I 


. = 2000 
BEGIN: 


LOOP: 


ILLIN: 

OVFLO: 

PASS2 


. = 2000 
BEGIN: 


LOOP: 


ILLIN: 

OVFLO: 

END 


CLR R1 
CMP R0.R1 
BLE ILLIN 
CLR @#2044 
MOV R0,@#2044 
DEC R0 

ADD R0,@#2044 
BVS OVFLO 
CMP R0.R1 
BGT LOOP 
HALT 
CLR R0 
CLR @#2044 
HALT 


CLR R1 
CMP R0,RI 
BLE ILLIN 
CLR @#2044 
MOV R0,@#2044 
DEC R0 

ADD R0,@#2044 
BVS OVFLO 
CMP R0,R1 
BGT LOOP 
HALT 
CLR R0 
CLR @#2044 
HALT 


THIS LINE MUST APPEAR FIRST. 

DELETE ALL PREVIOUSLY DEFINED 
SYMBOLS. 

PERFORM FIRST PASS INPUT OF PROGRAM. 
ALLOW UNDEFINED SYMBOLS AND SET 
THEIR VALUES TO ZERO. 

INPUT THE PROGRAM STARTING AT 
LOCATION 2000. 

Set R1 = 0. 

R0 contains n. 

Illegal input (n < 0)? 

No, start operation by clearing 2044. 

Place first value of n in 2044. 
n = n—l 

Add next value (n—1) to 2044, 

Overflow? 

No. 

Continue operation if n > 0. 

Operation complete if n = 0. 

Yes, illegal input. Clear R0, 2044. 

Yes, overflow. Clear 2044 only. 

Illegal input or overflow occurred. 

PERFORM SECOND PASS ENTRY OF 
PROGRAM. 

SYMBOLS ARE NO LONGER UNDEFINED AND 
ARE ASSIGNED CORRECT VALUES. 
UNRESOLVED ADDRESSES ARE RESOLVED. 
INPUT THE PROGRAM AGAIN STARTING AT 
LOCATION 2000. 

Set R1 = 0. 

R0 contains n. 

Illegal input (n < 0)? 

No, start operation by clearing 2044. 

Place first value of n in 2044. 
n = n—1 

Add next value (n— 1) to 2044. 

Overflow? 

No. 

Continue operation if n > 0. 

Operation complete if n = 0. 

Yes, illegal input. Clear R0, 2044. 

Yes, overflow. Clear 2044 only. 

Illegal input or overflow occurred. 

STOP HOST LOADING. 


4-27 




4.17.6 An Illustration of the Host Loading Process 

This paragraph steps you through a session with the DCT11-EM during which you load the summation 
program you created on your host (see example l, Paragraph 4.17.5). 

Assuming you are in NOHOST mode, the first step is to get into LOAD mode by typing in: 

TEM> HOST LOAD 

Press RETURN until your host responds with its usual prompting character(s). 

Then direct your host to type or otherwise display on the console terminal the program you wish to load. 
This command might be in the form: 

TYPE SUMM 

where TYPE is the the command your host recognizes to display the program and SUMM is the name you 
gave the program. When the host starts typing the program, the following appears on your console 
terminal. (This program does not contain any undefined symbols and requires only one pass.) 


.START 

TF.M> ;THIS LINE MUST APPEAR FIRST. 


:DFLETE ALL PREVIOUSLY DEFINED 
SYMBOLS. 

;ENTER THE PROGRAM STARTING AT 
LOCATION 2000. 


TEM> CLEAR 
TFM> 

TEM> . = 2000 
TEM> 

TFM> CLR R1 
TEM> CMP R0.R1 
TFM> BLH 2034 
TEM> CLR (it#2044 
TFM> MOV R0,(« #2044 
TEM> DEC R0 
TEM> ADD R0,C#2044 
TEM> BVS 2036 
TEM> CMP RO.RI 
TEM> BGT 2016 
TF.M> HALT 
TEM> CLR R0 
TEM> CLR fe#2044 
TEM> HALT 
TEM> .END 
HOST> 

<your host's prompt appears on the last lino 


Set R1 = 0. 

;R0 contains n. 

illegal input (n < 0)7 

;No, start operation by clearing 2044. 

;Place first value of n in 2044. 

;n = n—1 

;Add next value (n—1) to 2044. 
;Overflow? 

;No. 

;Continuc operation if n > 0. 
;Operation complete if n = 0. 

;Yes, illegal input. Clear RO, 2044. 
;Yes, overflow. Clear 2044 only, 
illegal input or overflow occurred. 
STOP HOST LOADING. 


The DCTl 1-EM successfully loaded your program and you are now back in HOST mode. The console 
monitor can now respond to your input. If you type in 2000, you can examine the program you just loaded 
by pressing RETURN repeatedly. 
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If your program is successfully being loaded into the DCT11-EM, each line is preceded by the TEM> 
prompt. If a program line causes a console error message, loading stops but typing continues (without the 
TEM> prompt). 

4.18 CONSOLE COMMAND SUMMARY 


General Form 


Operation 


expr 


Deposit the expression in RAM unless the expression is part of another 
command. Advance the address pointer accordingly. 


instr Assemble and deposit the instruction at the location indicated by the 

address pointer. Advance the address pointer accordingly. 

exprl_expr2 Display the contents of the locations from exprl through expr2. If exprl is 

greater than expr2, only exprl contents displayed. 


expr? 

expr\ 


null line 


symbol=expr 

symbol: 

A 


Display numerically the value of the expression. 

Set the address pointer to the value of the expression. Display the contents 
of the location specified by the expression. 

Display, relative to the address pointer, the next eight instructions if in 
INSTRU mode, the next eight words if in WORD mode, or the next eight 
bytes if in BYTE mode. If single stepping, single step again. 

Define the symbol to be equal to the expression. 

Define the symbol to be equal to the current value of the address pointer. 

Decrement the address pointer by one byte if you are in BYTE mode or 
by one word if you are in WORD or INSTRU mode. 


Paragraph 


Form 

Reference 

Operation 

ABSOLU 

4.8.2 

Sets the ABSOLU mode. Causes user-defined 
symbols in programs to be displayed as numeric 
values. 

.ASCII /string/ 

4.15 

Generates a block of data containing the ASCII 
equivalent of the character string (enclosed in 
delimiting characters), one character per byte. 

,BLKB expr 

4.15 

Reserves a block of storage space whose length in 
bytes is determined by the specified expression. 

BLKW expr 

4.15 

Reserves a block of storage space whose length in 
words is determined by the specified expression. 
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.BYTE exprl, expr2, • • • 

4.15 

Generates successive bytes of data; each byte con¬ 
tains the value of the corresponding specified 
expression. 

BYTE 

4.8.2 

Sets the BYTE mode for memory examination 
and alteration operations. Causes memory to be 
displayed as three digit bytes. 

CANCEL 

4.14.1 

4.14.3 

Clears all four breakpoints and the watchpoint. 

CLEAR 

4.13.2 

Clears the user symbol table. 

DELETE symbol 

4.13.2 

Deletes user-defined symbol from the user symbol 
table. 

END 

4.17.4 

Used at the end of programs that are to be loaded 


into the DCT11-EM from a host. Causes the 
DCTI l-EM to terminate host loading if in LOAD 
mode. 


.EVEN 

4.15 

Ensures that the current address pointer contains 
an even address by adding I if it is odd. 

EXIT 

4.2 

Transfers console control to the keypad. 

GO 

4.14 

Executes the user program at the current PC 
value. 

HELP 

4.16 

Displays a table of commands. 

HOST 

4.17.1 

Sets the HOST mode. Allows the DCTI l-EM to 
receive messages from a host. 

INSTRU 

4.8.2 

Sets the INSTRU mode. Data is displayed as 
DCTI 1-AA assembly language instructions. Is set 
by default when the DCTI l-EM is powered up. 

LOAD 

4.17.1 

Sets the LOAD mode. Establishes host communi¬ 
cation. Allows the DCTI l-EM to begin loading if 
it encounters the .START command. 

NOHOST 

4.17.1 

Clears the HOST mode. Is set by default when 
the DCTI l-EM is powered up. 

PASSl 

4.17.5 

Sets the PASSl mode. Allows the use of unde¬ 
fined symbols. 

PASS2 

4.17.5 

Sets the PASS2 mode. Requires all symbols to be 
defined. Is set by default when the DCTI I-EM is 
powered up. 
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REPEAT expr,cmd 

4.16 

Repeatedly performs the specified command(s) 
by the number of times specified by the 
expression. 

SHOW MO 

4.16 

Displays the current operating modes of the 
DCT11-EM. 

SHOWRE 

4.6 

Display^ the contents of user registers and the 
watchpoint if the watchpoint is set. 

SHOWSY 

4.13.2 

Displays the contents of the user symbol tabic. 

START 

4.17.5 

Used at the beginning of programs that are to be 
loaded into the DCT11-EM from a host. Causes 
the DCTl 1-EM to start host loading if in LOAD 
mode. 

STEP 

4.14.2 

Executes one instruction of a user program at the 
current value of the PC. Displays the contents of 
user registers and the watchpoint if the 
watchpoint is set. Displays the next instruction to 
be executed. 

SYMBOL 

4.8.2 

Sets the SYMBOL mode. Causes user-defined 
symbols in programs to be displayed as symbols 
rather than as numeric values. Is set by default 
when the DCTl 1-EM is powered up. 

TALK 

4.17.1 

Sets the TALK mode. Establishes host communi¬ 
cation. Allows you to communicate directly with 
a host as if the DCTl 1-EM were not there. Typi¬ 
cally used for program development on a host. 

VTOFF 

4.3 

Sets the VTOFF mode. Causes deleted characters 
to be echoed (preceded by a slash) on the console 
terminal when you press the DELETE key. Is set 
by default when the DCTl 1-EM is powered up. 

VTON 

4.3 

Sets the VTON mode. Characters you delete by 
pressing the DELETE key are not echoed in this 
mode. Typically used if you have a video terminal 
for a console. 

WORD exprl,expr2, • • • 

4.15 

Generates successive words of data; each word 


contains the value of the corresponding specified 
expression. 
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4.19 CONTROL COMMAND SUMMARY 


Command 

Meaning 

Typical Use 

CTRL/U 

CTRL/X 

Delete line. 

You made several typing errors in your input line. 
You want to cancel the line and try again. 

CTRL/R 

Display line. 

You used the DELETE key several times while 
typing your input line. You want to see a clean 
version of the line you are editing. 

CTRL/S 

Suspend execution. 

You want to suspend the operation of the console 
monitor or the execution of a currently running 
program. 

CTRL/Q 

Resume execution. 

You have previously used the CTRL/S command 
and want to resume operation. 

CTRL/C 

Abort operation. 

You want to abort the current CTRL/Y opera¬ 
tion of the DCT11-EM and input a new line. 

CTRL/O 

Ignore host message. 

You are in HOST mode (see Paragraph 4.17.1) 
and want to ignore information currently being 
sent by your host computer. 

CTRL/A 

Select option. 

You are in TALK or LOAD modes (see 
Paragraphs 4.17.3 and 4.17.4) and want to select 
one of these four options: exit, resume, send 
break, send CTRL/A. 
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CHAPTER 5 
SOFTWARE 


5.1 INTRODUCTION 

This chapter provides some information about the DCT11-EM monitor and introduces you to monitor 
subroutines you can use in your programs. The chapter also describes how address space is allocated in the 
DCT11-EM and shows you which areas are available and unavailable for use. 

This material is summary in nature. More detailed information can be found in the DCT11-EM monitor 
listing (see Appendix A) and in the DCT11-EM schematics (see Appendix B). 

5.2 THE MONITOR 

The monitor is a PROM resident program that controls the operation of the DCT11-EM. Its main purpose 
is to provide an environment in which you can develop and run programs. The portion of the monitor that 
allows you to operate the DCT11-EM with the keypad is called the keypad monitor and the portion that 
lets you use a console terminal is called the console monitor. When you learned how to operate the 
DCT11-EM with the keypad and console in Chapters 3 and 4, you were really learning how to get the 
monitor to do things for you. 

When you execute a program, the monitor relinquishes control of the DCT11-EM to your program. 
Control is returned to the monitor (i.e., the monitor is restarted) by any of the following ways: 

1. Pressing the HALT switch 

2. Executing a HALT instruction 

3. Encountering a breakpoint or executing a BPT instruction 

4. Attempting to execute an illegal instruction 

5. Performing a single step 

6. Sending a BREAK from a console terminal 

7. Executing a JMP @#140010 instruction 

8. Sending a CTRL/C or CTRL/Y command from a console terminal 

The first two ways (1 and 2) always return control to the keypad monitor. The remaining ways (3 through 
8) return control to the keypad monitor if you are using the keypad or the console monitor if you are using 
a console terminal. When control is returned to the keypad monitor, the PC is displayed on the LEDs and 
you are in register mode. (If a flashing error message appears on the LEDs, press the HALT switch or any 
key to display the PC.) When control is returned to the console monitor, a TEM> prompt is displayed on 
your console terminal. Refer to Appendix A for details about how the HALT and BPT instructions 
interact with the monitor. Also refer to Appendix A for information on the effects of setting the T-bit. 
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When you return control to the monitor, the DCTi I-EM registers contain the values they had at the time 
your program stopped with the following exceptions. 

1. If you execute a JMP @#140010 instruction, the PC is restored to the value it had when your 
program started. This allows easy restarting of the program. 

2. If you type CTRL/C or CTRL/Y from a console terminal, all the DCTI 1-EM registers are 
restored to the values they had when your program started. 

3. If you encounter a breakpoint, the stack pointer is set to the value it had just before the 
breakpoint occurred. 

5.2.1 The Stack Pointer 

The monitor initializes your stack pointer to 7400 when you power up. The monitor also checks to make 
sure your stack pointer is in the range 4 through 7400, inclusive (for the keypad monitor), or 4 through 
6500, inclusive (for the console monitor), before it allows your program to execute. It is up to you, 
however, to make sure the stack pointer has a reasonable value before you attempt to run a program. 

For example, it is a good idea to make sure your stack pointer and the information you push onto the stack 
do not overlap your program. To decrease the chance of this happening, set the stack pointer well above 
the area in which your program resides. 

5.3 MONITOR SUBROUTINES 

Several portions of the DCTI 1-EM monitor are accessible to your programs as subroutines. If you want to 
use one of these subroutines in your program, simply include a JSR instruction in the form: 

JSR PC,@#subroutine 

where subroutine refers to the address of the desired subroutine. 


Subroutine mnemonics arc defined within the monitor only, so make sure your program defines these 
mnemonics before it uses them as symbols. 

5.3.1 Keypad/LED Subroutines 


Address 

Mnemonic 

Description 

140014 

DGDISP 

Display Hex Digit 

Takes the value contained in the lower four bits of R0 and 



displays it as a hexadecimal number on the LED digit indexed 
by Rl. Values of Ri correspond to LED digits as follows. Uses 
R0 and Rl. 
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Address 

Mnemonic 

Description 

140020 

UPDISP 

Display Octal Number on Upper LEDs 

Takes the value in R2 and displays it as a six-digit octal number 
on the upper row of LEDs. Uses R0 and R1. 

[40024 

LODISP 

Display Octal Number on Lower LEDs 

Takes the value in R2 and displays it as a six-digit octal number 
on the lower row of LEDs. Uses R0 and R1, 

140030 

DECDSP 

Display Decimal Number 

Takes the value in Rl and displays it as a five-digit decimal 
number on the row of LEDs indexed by R2. R2 = 12 for the 
lower row, R2 = 13 for the upper row. Uses R0, Rl, R2, and 
R3. 

140034 

UPBLNK 

Clear Upper Row 

Blanks out the upper row of LEDs. Uses R0 and R1. 

140040 

LOBLNK 

Clear Lower Row' 

Blanks out the lower row of LEDs. Uses R0 and Rl, 

140044 

GETKEY 

Get Key Number 


Turns on LEDs and waits for a keypress. When a keypress 
occurs, takes the number of the key and stores it in R1. Keys are 
numbered as follows. 



140050 BCDKEY Convert Key Number to BCD 

Takes the key number in R! and converts it to a BCD value for 
the keys 0 through 9. Returns 12 for the CLR key and 13 for 
the EXA key. Returns —1 (i.e., 177777) for any other key. 
Stores the result in R1. 
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Address Mnemonic Description 

140054 GETNUM Input Number From Keypad 

Displays the value in R2 as a six-digit octal number on the lower 
row of LEDs. Enables the user to modify the value of R2 using 
keys 0 through 7 and CLR. Stores modified value in R2 when 
the EX A key is pressed. Uses R0, Rl, and R2. 

5.3.1.1 Using the LEDs and Keypad - This paragraph contains some information you may find useful 
when writing programs that use the LEDs and keypad. This is intended as introductory material only. For 
further detail, refer to the monitor listing in Appendix A and the DCT11-EM schematics in Appendix B. 

You can create your own characters to display on the LED digits. First, form bytes that represent the 
segment patterns of the characters you wish to display as shown in Figure 5-1. 


rip* 



Figure 5-1 LED Segment Assignments 


For example, 01110100 (or 164 octal) corresponds to the letter h and 01001111 (or 117 octal) corresponds 
to the numeral 3. 

Then, move the bytes containing the segment patterns to locations 7712 through 7725. These locations 
(collectively called SEGBUF) are used by the LED interrupt service routine in the monitor to display 
segment patterns on the LEDs. Each location (byte) corresponds to an LED digit as shown in Figure 5-2. 


UPPER ROW 

OF 

7725 

7723 

7721 

771 7 

7715 

7713 

LbUS 








LOWER ROW 
Of 

7 724 

7722 

7/20 

7716 

7714 

771? 

LEDS 








Figure 5-2 SEGBUF Assignments 


For example, if you moved 164 (octal) to location 7721, 117 (octal) to location 7717, and 0 to all the other 
SEGBUF locations, you would display h3 centered in the upper row of LEDs. 

Finally, turn on the LEDs by writing 000007 to port C of the 8255A parallel port chip (address 177444). 
Make sure your program keeps the LEDs on long enough for you to see them. One way of leaving the 
LEDs on is to incorporate one or more delay loops in your program of the form: 

CLR R5 
SOB R5„ 
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The LED interrupt (INTA) is disabled (i.e., the LEDS are turned off) by writing 000010 to port C of the 
8255A chip. This also disables the user LED. 

To turn on the user LED (which, incidentally, also disables the LED digits), write 000011 to port C of the 
8255A chip. 

Examples of displaying values on the LEDs are provided in Paragraph 5.3.1.2. You can also create your 
own interrupt service routines to respond to keypresses. When a key is pressed, program control is 
iransfered to the routine pointed to by 7676. If 7676 is zero, keypresses are ignored. The number of the 
key pressed is available to your routine through Rl. See the description of the GETKEY subroutine in 
Paragraph 5.3.1 for key numbers. 

In order for a keypress to be sensed, the LEDs must be enabled. This can be done by writing 000007 to 
location 177444 as explained above or by executing your program from the keypad with the “Go With 
LEDs” special function (see Paragraph 3.12.2). 

At the end of your keypress service routine, include the sequence: 

MOV (SP)+,R2 
MOV (SP)+,R 1 
MOV (SP)+,R0 
RT1 

to restore the state of your interrupted program. As an example, here is a program which loops on itself 
and increments R3 each time a key is pressed. To check the operation of the program, start it at location 
1000 and press keys. Press HALT and examine R3. 




Symbolic 


Address 

Data 

Representation 

Comments 

1000 

012737 

MOV #7,@# 177444 

;enable keypad 

1002 

000007 



1004 

177444 



1006 

012737 

MOV #1500,@#7676 

;attach interrupt routine 

1010 

001500 



1012 

007676 



1014 

000774 

BR 1006 

;loop infinitely 

1500 

005203 

INC R3 

interrupt service routine 

1502 

012602 

MOV (SP)+,R2 

1504 

012601 

MOV (SP)+,R I 


1506 

012600 

MOV (SP)+,R0 


1510 

000002 

RTI 



5.3.1.2 Using Keypad/LED Subroutines - Example Programs - The following examples show you how 
to use keypad/LED subroutines. 

Example 1 - Countdown Program This program decrements a number at a rate inversely proportional to 
the number’s size. The program begins by displaying the word "EntEr" on the upper row of LEDs. You 
enter a number (which is displayed on the lower row of LEDs) and press the EXA key. The number is 
displayed as it is decremented. The program initializes itself at the end to allow you to enter another 
number. 

There are undefined symbols in this program, so if you enter the symbolic version via the console terminal, 
make sure you incorporate the PASS1 and PASS2 commands as described in Paragraph 4.17.5. 
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Symbolic 


Address 

Data 

Representation 

Comments 



SEGBUF = 7712 

;LED segment buffer 



LODISP = 140024 

;octal number on lower LEDs 



GETNUM = 140054 

;input number from keypad 



. = 1000 

position program at location 
;1000 

1000 

012701 

TEST: MOV #SEGBUF+1,R1 

;point to rightmost 

1002 

007713 


;digit of upper row of LEDs 

1004 

012700 

MOV #6,R0 

;set digit count = six digits 

1006 

000006 



1010 

116021 

TESTl: MOVB ENTER-1 (R0),(R1)+ 

transfer character to 

1012 

001063 


;digit in upper row of LEDs 

1014 

005201 

INC R1 

;advance pointer to next 
;digit in upper row of LEDs 

1016 

077004 

SOB R0,TEST1 

;loop to transfer all six 
characters 

1020 

004737 

TEST2: JSR PC,@#GETNUM 

;input an octal number from 

1022 

140054 


;the keypad 

1024 

005702 

TEST4: TST R2 

;reject zero as an input 

1026 

001774 

BEQ TEST2 

;if zero, get a new number 

1030 

012701 

MOV #3,RI 

;call delay routine three 

1032 

000003 


;times 

1034 

004767 

TEST3: JSR PC,DEL AY 

;wait a while 

1036 

000012 



1040 

077103 

SOB R1,TEST3 


1042 

005302 

DEC R2 

decrement entered number 

1044 

004737 

JSR PC,@#LODISP 

;display new value 

1046 

140024 



1050 

000765 

BR TEST4 

;see if we have zero yet 

;DELAY loops a number of times inversely proportional to the size 


;of R2. Thus there is 

a smaller delay when R2 is large. 


1052 

012700 

DELAY: MOV #-l,R0 

;set dividend 

1054 

177777 



1056 

160200 

DELAY 1: SUB R2,R0 

;divide by successive 

1060 

103376 

BCC DELAY 1 

subtraction; keep 
subtracting until 
;underflow occurs 

1062 

000207 

RTS PC 


; ENTER is a list of 

bytes corresponding to the segment patterns 


; “EntEr” 




1064 

052171 

ENTER: .BYTE 171,124,170,171,120,0 


1066 

074570 



1070 

000120 
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Example 2 - Clock Program 

This program displays a minutes and seconds clock on the lower row of LEDs. The values for minutes and 
seconds are obtained from a timer maintained by the monitor. You can use the INT switch to set minutes. 
Note that the upper row of LEDs and the left-most digit of the lower row display the current contents of 
the LED segment buffer for those digits. 

All symbols referenced in this program are defined, The symbolic version of the program will run if 
entered as follows. As an exercise, try to modify the program so that the upper row of LEDs and the left¬ 
most digit of the lower row of LEDs are blank when the program is running. 




Symbolic 


Address 

Data 

Representation 

Comments 



PFVEC = 24 

;INT switch vector 



TIME = 7730 

;upper six bits count seconds 



SEGBUF - 7712 

;LED segment buffer 



MINUTS = 776 

location to hold minutes count 



DECDSP = 140030 

;disp!ay decimal number 



PSPORC = 177444 

;LED/keypad I/O port on 8255A 



SETIME = 1200 

;subroutine to set minutes 



= 1000 

•.position program at loc. 1000 

1000 

012706 

CLOCK: MOV #6500,SP 

initialize stack pointer 

1002 

006500 


1004 

106427 

MTPS #0 

;sct low priority 

1006 

000000 



1010 

012737 

MOV #SETIME,@#PFVEC 

;connect minute set 

1012 

001200 


;routine to INT switch 

1014 

000024 



1016 

005037 

CLR @#TIME 

;clear seconds and second 

1020 

007730 


Tractions 

1022 

005067 

CLR MINUTS 

;clear minutes 

1024 

177750 



1026 

1 12737 

MOVB #7,@#P$PORC 

;turn on LEDS 

1030 

000007 



1032 

177444 



1034 

032737 

LOOP: BIT #I000,(gf#TIME 

;wait for seconds to 

1036 

001000 


‘.change 

1040 

007730 



1042 

001774 

BEQ LOOP 


1044 

032737 

LOOP 1: BIT #1000,(i»#TIME 


1046 

001000 



1050 

007730 



1052 

001374 

BNE LOOP1 


1054 

013701 

SHOWIT: MOV @#TIME,R1 

;show time 

1056 

007730 



1060 

000301 

SWAB R1 

;get seconds 

1062 

006201 

ASR R1 


1064 

006201 

ASR R1 


1066 

042701 

B1C # 177700,R1 

;mask out fractions of 

1070 

177700 


;seconds 

1072 

001010 

BNE .+22 

;not a new minute (BNE CLKI) 

1074 

005267 

INC MINUTS 

;else count minutes 
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Symbolic 


Address 

Data 

Representation 

Comments 

1076 

177676 



1)00 

026727 

CMP MINUTSJ60. 

;overflow? 

1102 

177672 



1104 

000074 



1106 

103402 

BLO .+6 

;no (BLO CLK1) 

1110 

005067 

CLR MINUTS 


1112 

177662 



1114 

016702 

CLK1: MOV MINUTS,R2 

;get minutes 

1116 

177656 



1120 

012700 

MOV #3,R0 

;shift minutes over three 

1122 

000003 


;digits 

1124 

006302 

LOOP2: ASL R2 

;multiply R2 by 10 to shift 

1126 

010246 

MOV R2,-(SP) 

;one decimal digit to the left 

1130 

006302 

ASL R2 


1132 

006302 

ASL R2 


1134 

062602 

ADD (SP)+,R2 


1136 

077006 

SOB RO,LOOP2 

;loop three times to make X 1000 

1140 

060201 

ADD R2,R1 

;add minutes to seconds 

1142 

012702 

MOV #10,R2 

;index lower display 

1144 

000010 



1146 

004767 

JSR PC,@#DECDSP 

;display time 

1150 

136656 



1152 

112737 

MOVB # 100,@#SEGBUF+4 

;display dash between 

1154 

000100 


;minutes and seconds 

1156 

007716 



1160 

000725 

BR LOOP 




. = 1200 


1200 

005037 

SETIME: CLR @#TIME 

;reset seconds to increment 

1202 

007730 


jminutes 

1204 

012706 

MOV #6500,SP 

;reinitialize stack 

1206 

006500 



1210 

106427 

MTPS #0 

;reinitialize priority 

1212 

000000 



1214 

000717 

BR SHOWIT 

;display new time 


As an exercise, try to modify the program so that the upper row of LEDs and the left-most digit of the 
lower row of LEDs are blank when the program is running. 

5.3.2 Console Subroutines 


Address 

140060 

Types an angle bracket and space (> ) as prompting characters 
and awaits input from the console terminal. Echoes characters 
as they are typed in. Stores these characters (up to 96 per line) in 
a character buffer. Uses RO, R3. 


Mnemonic Description 

GETL1N Get Input Line 
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Address 

140070 

140100 

140104 

140120 

140124 

140134 

140140 

140144 


Mnemonic 

GETCH 


GETCHC 


GETNXT 


CRLF 

CHROUT 


CHR02 


ASCOUT 


PRINTA 


Description 

Get Character 

Retrieves the character indexed by R3 from the character buff¬ 
er. R3 must have a value from 0 to 137 octal (95 decimal). 
Stores the character in the lower byte of R0 and increments R3. 
Lowercase characters are converted to uppercase. Sets the N 
condition code bit if the character is a separator (space, tab, 
feed). Sets the C condition code bit if the character has been 
converted from lowercase to uppercase. Uses R0, R3. 

Get Character, Preserve Case 

Retrieves a character with its case intact from the character 
buffer. Uses R3 as an index to the character. R3 must have a 
value from 0 to 137 octal (95 decimal). Stores the character in 
the lower byte of R0 and increments R3. Uses R0, R3. 

Get Character, Ignore Separators 

Retrieves the next character in the character buffer which is not 
a separator (space, tab, feed). Uses R3 as a starting point index. 
R3 must have a value from 0 to 137 octal (95 decimal). Stores 
the character in the lower byte of R0 and increments R3 in 
accordance with the number of separators encountered. Lower¬ 
case characters are converted to uppercase. Sets the C condition 
code bit if a character has been converted from lowercase to 
uppercase. Uses R0, R3. 

Type Carriage Return, Line Feed 

Types a carriage return and line feed on the console. 

Type One or Two ASCII Characters 

Takes the value in the lower byte of R0 and types it as an ASCII 
character on the console. If the upper byte of R0 has a nonzero 
value, it is also typed as an ASCII character on the console. Uses 

R0. 

Send Byte to Auxiliary Port 

Takes the value in the lower byte of R0 and sends it to the 
auxiliary serial port. Uses R0. 

Type One ASCII Character or String 

Takes the value in the lower byte of R0 and types it on the 
console either as an ASCII character or as an ASCII string of 
characters. ASCII strings that can be typed include <ESC>, 
<SP>, <DEL>, and A A through A _ where the caret denotes a 
control character. Uses R0. 

Type ASCII String 

Takes a string of bytes starting at the location pointed to by R1 
and types them on the console as ASCII characters until until a 
byte whose value is zero is is encountered. Uses R0, R1. 
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Address Mnemonic 

140160 TYPOCT 


140164 TYPDEC 


Description 

Type Octal Number 

Types the value in R1 on the console as a six-digit octal number 
if in the INSTRU or WORD output formatting modes. Types 
the lower byte of R I on the console as a three-digit octal number 
if in BYTE mode. Uses R0, Rl. 

Type Decimal Number 

Types the value in Rl on the console as a signed five-digit 
decimal number followed by a period. Uses R0, Rl, 


5.3.2.1 Console Character Manipulation - The console subroutines just described provide most of the 
functions you will require to manipulate characters via the console. If you require other functions, refer to 
the monitor listing in Appendix A. 


Keep the following in mind when using the GETCH, GETCHC, and GETNXT subroutines. 


When you use these subroutines, characters you input via the console terminal are stored in a 96-character 
buffer maintained by the monitor called BUFFER. All three subroutines use R3 as a pointer to determine 
which character within BUFFER is retrieved. Since BUFFER is 96 characters in length, R3 can have a 
value from 0 through 137 (octal), inclusive. For your convenience, the subroutines automatically incre¬ 
ment R3 to point to the next character to be retrieved. 


5.3.2.2 Using Console Subroutines - Sample Program 


; NIM for the TEM 

; In this version of NIM, there are 21 sticks. The game requires 2 
;players (the user and the TEM). The players take turns picking up 
,1, 2, or 3 sticks. The object of the game is to leave 1 stick for 
,the other player to pick up in the last turn. The algorithm used 
by the TEM ensures that it will win if it goes second, or if it goes 
.first and the other player leaves it an opportunity to win. 

; Operation of the game is explained by prompts. All responses by the 
;user must be terminated with a carriage return. Flowever, several 
responses may be typed together on a line, separated by commas, and 
will be taken as needed by upcoming prompts for input. 

There are undefined symbols in this program, so if you enter the 
symbolic version via the console terminal, make sure you incorporate 
the PASS1 and PASS2 commands as described in Paragraph 4.17.5. 
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;***•♦***♦* SYMBOL DEFINITIONS *********** 


CLEAR ;empty symbol table 


MON1TR = 140010 
GETLIN - 140060 
GETNXT = 140104 
CRLF = 140120 
CHROUT = 140124 
PRINTA = 140144 
TYPDEC = 140164 


;reentry point for monitor 

;get a line from the console 

;get next significant character from BUFFER 

;send <CR>,<LF> to console 

;send a character to console 

;print an ASCII string 

;type a decimal number on the console 


CR 

= 15 

LF 

= 12 

SPACE 

= 40 

STICKS 

= 21 


;<CR> 

;<LF> 

;space 

;initial number of sticks 


.************ 


START OF PROGRAM ************ 


. = 1000 

NIM: MOV #GREET,R1 

JSR PC,@#PRINTA 

NEWGAM:CLR R5 
CLR R3 

NEWl: MOV #MEORU,Rl 

JSR PC,@#PRINTA 
JSR PC,@#GETLIN 
JSR PC,@#GETNXT 
CMPB ROJ’M 
BEQ TEMGO 
CMPB ROJ’Y 
BEQ USERGO 
CMPB ROJ’Q 
BNE NEWl 
JMP @#MONITR 


;print greeting message on console 

;show no sticks taken yet 

;(number of sticks left = STICKS - R5) 

;ask who plays first 
;wait for response from console 
;get first meaningful character 
;m(e) means TEM goes first 

;y(ou) means user goes first 

;q(uit) means return to monitor 

;lf user has not entered a valid response, 

;prompt for response again. 
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USERGO: MOV #LEFT1,R1 

JSR PC,@#PR1NTA 
MOV #ST1CKS,R1 
SUB R5,R1 
MOV Rl,R2 
JSR PC,@#TYPDEC 
MOV #LEFT2,R1 
JSR PC,@#PRINTA 
JSR PC,@#CRLF 

USER1: MOV #400*SPACE+’/,R0 

JSR PC,@#CHROUT 
SOB R2,USER1 

JSR PC,@#GETNXT 
CMPB R0,f, 

BEQ NEXT 

USER2: MOV #H0WMNY,R1 

JSR PC.@#PRINTA 
JSR PC,@#GETLIN 
NEXT: JSR PC,@#GETNXT 

CMPB R0,fl 
BLO USER2 

CMPB RO.f 3 
BH1 USER2 
SUB f 0,R0 
ADD R0.R5 
CMP R5JSTICKS-1 
BLO TEMGO 
BHIUSER4 
MOV fLOSE.Rl 
JSR PC,@#PRINTA 
JMP NEWGAM 

USER4: MOV #GOOFED,Rl 

JSR PC,@#PRINTA 
JMP NEWGAM 

TEMGO: MOV #MYMOVE,Rl 
JSR PC,(£#PRINTA 

MOV R5,R1 
NEG R1 
BIC #177774,R1 
BNE TEM1 
MOV #2,R! 


;print header for number of sticks left 

calculate number of sticks left 

;save a copy of result 

;type decimal value on the console 

; finish message 
;start a new line 

;put in RO the character pair “/” 
;type a “stick 5 ' on the screen 
;loop to type the appropriate number 
;of sticks 

;get next character 
;is it a comma? 

;yes, get next move from line. 

;ask how many sticks the user wants 
;get a line 

;get first/next meaningful character 
;on line 

;illegal response, throw away line and 
;try again 

;illegal response 

;convert digit in RO into a number 
;add to sticks already taken away 
;is only 1 stick left? 

;no, it’s TEM’s turn 
;user took too many sticks 

announce the loss 
;ask about another game 


pell the idiot that he goofed up 
;and ask about another game 


;type beginning of TEM’s move on 
;console 

;get number of sticks taken so far 
;implemcnt algoritm to select move: 
;if R5 MOD 4 = 0, take 2 sticks 
; R5 MOD 4=1, take 3 sticks 
; R5 MOD 4 = 2, take 2 sticks 
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TEM1: 

ADD Rl ,R5 

; R5 MOD 4 = 3, take 1 stick 


JSR PC,@fTYPDEC 

MOV #MYMOVl,RI 

;show how many sticks TEM is taking 


JSR PC,@#PRINTA 

;finish message 


CMP R5JSTICKS-1 

;is there only 1 stick left? 


BLO USERGO 

MOV #IWIN,R1 

;no. it’s the user’s turn 


JSR PC,@#PRINTA 

;announce the victory 


JMP NEWGAM 

;and ask about a new game 

GREET: 

BYTE CR,LF 

.ASCII /NIM for the TEM/ 

BYTE CR,LF,0 


MEORU: 

BYTE CR,LF 



.ASCII /Who goes first? Me (M) or 
BYTE 0 

you (Y)? (Q to quit)/ 

LEFT1: 

BYTE CR,LF 
.ASCII /There are / 

BYTE 0 


LEFT2: 

.ASCII / sticks left./ 

.BYTE 0 



HOWMNY: BYTE CR,LF 

.ASCII /Haw many sticks will you take? (I, 2, or 3)/ 

.BYTE 0 

MYMOVE: BYTE CR,LF 
ASCII /I lake / 

BYTE 0 

MY MOV 1: .ASCII / stick(s)./ 

BYTE 0 

I LOSE: .BYTE CR,LF,LF 

.ASCII /You win!!! I demand a rematch!/ 

BYTE 0 

IWIN: BYTE CR,LF,LF 

.ASCII /I win!!! Want to trv again?/ 

BYTE 0 

GOOFED: .BYTE CR,LF,LF 

.ASCII /You goofed up! Can you get it right this time?/ 

.BYTE 0 

5.4 DCTU-EM ADDRESS SPACE 

DCT11-EM address space is organized as shown in Figure 5-3. Functionally, the address space consists of: 
standard RAM space, expansion RAM space, monitor space, I/O space, space available for external 
hardware, and reserved space. 
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Figure 5-3 DCT11-EM Memory Map 
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5.4.1 Standard RAM Space 

Addresses 000000 through 007777 are allocated to the RAM that comes standard with the DCT11-EM. 
This RAM space is utilized as follows. 


Addresses 

Use 

000000-000143 

Interrupt and Other Vectors. Contains vectors that point to 
service routines for various interrupt, trace, and trap conditions. 
See Chapter 6 for specific vector addresses. 

000144-006477 

User RAM Space. Space available for user programs. 

006500-007317 

Symbol Table (Console Monitor Only). Can contain up to 66 
user defined symbols. 

007320-007377 

Console Monitor Scratchpad. Area for use by the console 
monitor. 

007400-007777 

Keypad Monitor Scratchpad. Area for use by the keypad moni¬ 
tor and console monitor. 


If you are using only the keypad, the symbol table and console monitor scratchpad areas arc available to 
you as user RAM. 

The monitor ordinarily protects certain areas of RAM from direct alteration. If you are using the keypad 
only, the keypad monitor scratchpad is the only area of protected RAM. If you are using a console 
terminal, however, the symbol table, console monitor scratchpad, and keypad monitor scratchpad are all 
protected. You can remove protection by activating special function 4 from the keypad (see Paragraph 
3.12.5). 

Note that “protection" refers only to protection from direct alteration, such as examining a location from 
the keypad or console and then trying to change the location. An executing program can violate any RAM 
location. To avoid unpredictable results, therefore, make certain your programs do not inadvertantly write 
data into areas not available as user RAM. 

5.4.2 Expansion RAM Space 

If you insert two 2 K X 8 RAMs into the expansion sockets (sec Paragraph 5.3), another portion of user 
RAM space at locations 020000 through 027777 becomes available to you. 

5.4.3 Monitor Space 

The monitor space is the space occupied by the keypad and console monitors which reside in two 8 K X 8 
PROMs at locations 120000 through 157777. 

5.4.4 I/O Space 

Locations 177400 through 177577 are designated as space for the DCT1 1-EM’s I/O chips. The 8255A 
parallel port, the 8251A auxiliary serial line, and the DC319 DLART console serial line all use this space. 
The I/O space consists of locations that can be written only and locations that can be written or read. 
Figure 5-4 provides a detailed breakdown of how the I/O space is used. 
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177577 


177566 

DLART TRANSMITTER DATA BUFFER 

177564 

DLART TRANSMITTER COMMAND/STATUS REG. 

177562 

DLART RECEIVER DATA BUFFER 

177560 

DLART RECEIVER COMMAND/STATUS REG. 





177552 

8251 STATUS REGISTER 

177550 

8251 RECEIVER DATA BUFFER 



177544 

8255 PORT C (INPUT FROM UPPER 4 BITS) 

177542 

8255 PORT B (8-BIT INPUT) 

177500 


177477 


177452 

8251 CONTROL REGISTER 

177450 

8251 TRANSMIT DATA BUFFER 

177446 

8255 COMMAND REGISTER 

177444 

8255 PORT C (OUTPUT TO LOWER 4 BITS) 

177442 

8255 PORT B (8-BIT OUTPUT) 

177440 

8255 PORT A (8-BIT OUTPUT) 

177400 



I READ/WRITE 
f I/O SPACE 


I WRITE ONLY 
f I/O SPACE 


MR 103S1 


Figure 5-4 Map of I/O Space 


5.4.5 Space Available For External Hardware 

The following space is available to you for any expansion hardware you may wish to design: 

040000-077777 167600-177377 

160000-167377 177600-177777 

An example of a piece of external hardware that could use this space is a RAM board which responds to 
addresses 040000 through 057777. Further information on hardware expansion is provided in Chapter 6. 

5.4.6 Reserved Space 

The shaded space in Figure 5-3 is reserved and unavailable for use. The addresses affected are: 

010000-017777 100000-117777 

030000-037777 167400-167577 
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CHAPTER 6 
HARDWARE 


6.1 INTRODUCTION 

The DCT11-EM hardware is organized as shown in Figure 6-1. In general, the hardware consists of: 

• The DCT1 1-AA microprocessor 

• RAM 

• Monitor EPROM 

• Peripheral chips and drivers 

• An internal data bus buffer 

• User buffers 

• Microprocessor control signal decoding logic 

• Address latching and range decoding logic 

• Peripheral chip address decoding logic 

• Interrupt logic 

• Timing logic 

• Miscellaneous control logic 

• Keypad/LEDs and supporting logic 

• The HALT and INT push-button switches 

• Connectors 

The paragraphs that follow provide information on each of these. Refer to the DCT11-EM schematics in 
Appendix B for further details. 

Paragraph 6.17 contains a design for an expansion memory board you can build. 
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Figure 6-1 DCT11-EM System Block Diagram 

























6.2 DCT11-AA MICROPROCESSOR 

The DCT! 1-AA microprocessor is the heart of the system. A detailed discussion of the operation and 
architecture of the DCT11-AA is beyond the scope of this book. Refer to the DCT!l-AA User’s Guide 
(EK-DCTl 1-UG) for this information. 

At power-up or when a RESET instruction is executed, the DCT] 1-AA mode register bits are set to the 
following states and cannot be changed. 

Mode 

Register Bits State Mode 

<15:13> 000 Start address = 140000 

Restart address = 140004 

12 1 User 

11 0 16-bit bus 

10 1 4 K/16 K memory 

9 0 Dynamic memory 

8 0 Normal read/write 

1 1 Standard microcycle 

0 1 COUT = processor clock 

This mode configuration has the following implications: 

• Bit <]1> = 1 - This allows you to use either 8-bit or 16-bit data paths in your expansion 
circuitry designs. If 8 bits, simply use the lower 8 bits of the 16-bit bus. 

• Bits <10:09> = 10 - This allows you to use inexpensive 16 K dynamic RAMs for off-board 
memory expansion (see Paragraph 6.17). 

• Bit <8> = 0 - This allows you to design expansion hardware with devices that respond to either 
normal or delayed read/write controls. If you use devices that respond to delayed read/write 
controls, include delay circuitry in your design. 

NOTE 

Do not use a RESET instruction in your program 
unless your program reconfigures (i.e., reinitializes) 
your peripheral chips. RESET causes the DCT11- 
AA to assert -BCLR which resets the peripheral 
chips. 

6.3 RAM 

There are two 2 K X 8 CMOS static RAM chips in the basic DCT11-EM which provide 4 K bytes of 
memory space. These RAMs respond to addresses 000000 through 007777. Even numbered or low bytes 
reside in one RAM, and odd numbered or high bytes reside in the other. 

There are two expansion sockets on the board which can accommodate two additional 2 K X 8 static 
RAMs. The RAMs in these sockets respond to addresses 020000 through 027777. One RAM stores low 
bytes and the other stores high bytes. 
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Although the DCT11-AA generates refresh cycles as a result of being set to dynamic memory mode, this 
is for the benefit of off-board expansion with dynamic RAMs. The on-board static RAMs ignore the 
refresh cycles. 

6.4 MONITOR EPROM 

The DCT11-EM monitor is contained in two 8 K X 8 EPROM chips. The EPROMs respond to addresses 
120000 through 157777. 

Note that accesses to memory locations above 100000 cause a single cycle slip. This is not only for the 
benefit of the monitor EPROMs, but also for the peripheral chips and any slow expansion hardware which 
may be attached. Cycle slips are disabled if the jumper is installed (see Paragraph 2.5). If you install the 
jumper, make sure you also decrease the microprocessor's 7.5 MHz clock frequency to a value between 3 
MHz and 6 MHz by changing the crystal. 

6.5 PERIPHERAL CHIPS AND DRIVERS 

The peripheral chips are the 8255A parallel port, the DC319-AA DLART console serial line, and the 
8251A auxiliary serial line. The DLART and the 8251A have EIA drivers associated with them so that 
they can communicate with RS232-C devices. The locations reserved for use by the peripheral chips are 
listed in Table 6-1. 


Table 6-1 Reserved I/O Locations for Peripheral Chips 


Location 

Number 

Location 

Type 

Use 

177566 

Read/write 

DLART transmitter data buffer 

177564 

Read/write 

DLART transmitter command/status register 

177562 

Read/write 

DLART receiver data buffer 

177560 

Read/write 

DLART receiver command/status register 

177552 

Read/write 

8251A status register 

177550 

Read/write 

8251A receiver data buffer 

177544 

Read/write 

8255A port C (input from upper 4 bits) 

177542 

Read/write 

8255A port B (8-bit input) 

177452 

Write only 

8251A control register 

177450 

Write only 

8251A transmit data buffer 

177446 

Write only 

8 25 5A command register 

177444 

Write only 

8255A port C (output to lower 4 bits) 

177442 

Write only 

8255A port B (8-bit output) 

177440 

Write only 

8255A port A (8-bit output) 


6.5.1 Parallel Port (8255A) 

The 8255A parallel port chip has two 8-bit ports and two 4-bit ports, all independently controllable. Port A 
(8 bits) is dedicated to supplying LED segment data to the LED segment drivers. Port A is configured as 
output only. Port B (8 bits) is initially configured as an input port and is available to your expansion 
hardware via the 60-pin connector. You can configure port B as either an input port or an output port. Port 
C is really two independent 4-bit ports. The upper four bits of port C are dedicated to sensing keypresses 
and are configured as input only. The lower four bits of port C are dedicated to turning on the LEDs and 
enabling the keypad. These lower four bits are configured as output only. 

For detailed information on programming the 8255A, refer to the Intel Component Data Catalog (availa¬ 
ble from Intel Corp., 3065 Bowers Ave., Santa Clara, CA 95051). The order number is 210298-001. 
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6.5.2 DLART Console Serial Line 

The DLART (DC319-AA) is an asynchronous receiver/transmitter which the DCT11-EM uses to com¬ 
municate with a console terminal. 

The DLART can generate receiver, transmitter, and break detection interrupt requests. See Paragraph 
6.11 for more information on interrupts. 

The 800 Hz clock output of the DLART is used to generate the INTA interrupt request which causes the 
LEDs and keypad to be activated. Again, see Paragraph 6.11. 

Detailed information on programming the DLART is contained in the DLART Data Sheet (ED-23181). 

6.5.3 Auxiliary Serial Line (8251A) 

The 8251A auxiliary serial line chip is a universal synchronous/asynchronous receiver/transmitter 
(USART) which the DCTl 1-EM uses for general purpose asynchronous serial communications. Typically, 
the auxiliary serial line is used for communicating with a host computer. 

The auxiliary serial line features modem control. The Data Carrier Detect and the SYNDET functions of 
the 8251 A, however, are not used in the DCTl 1-EM. 

For detailed information on programming the 8251 A, refer to the Intel Component Data Catalog (availa¬ 
ble from Intel Corp., 3065 Bowers Ave., Santa Clara, CA 95051). The order number is 210298-001. 

6.6 INTERNAL DATA BUS BUFFER 

The internal data bus buffer is not accessible to you directly but is the buffer through which most of the 
data in the DCTl 1-EM passes. It buffers DAL<15:00>, the microprocessor’s primary data bus. 

6.7 USER BUFFERS 

The DCTl 1-EM has three user buffers. One buffer provides access to DAL<15:00>, the main internal 
data bus. Another buffer provides access to AI<7:0>, the microprocessor’s address interrupt lines. The 
third buffer provides access to various DCTl 1-EM control signals. These buffers arc directly accessible 
through the 60-pin connector. See Paragraph 6.16 for the names of the specific buffered signals available. 

6.8 PROCESSOR CYCLE DECODING 

There is some decoding logic that takes microprocessor control signals and combines them to direct the 
operation of various chips within the DCT11-EM. Some of these decoded signals are available to you 
through one of the user buffers. See Paragraph 6.16 for the names of these buffered control signals. 

6.9 ADDRESS LATCHING AND RANGE DECODING 

Memory addresses are latched from DAL<15:00> when the microprocessor asserts ERAS L. As shown in 
Figure 6-1, the upper three bits of the latched address are converted (decoded) to signals which enable 
pairs of on-board ROMs or RAMs. 
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Decoded address range signals are also available to your expansion hardware via the 60-pin connector. 
These signals are ARD02 L, ARD03 L, and ARD17 L. Figure 6-2 illustrates the address ranges to which 
these signals correspond. 



>ARD 1 7 


r ARDIX 


NO CHIP ENABLE 
SIGNAL AVAILABLE 


VAR003 


ARO02 


fARDOl 


ARDOO 


Wft 1 0353 


Figure 6-2 Address Range Decoding 


6.10 PERIPHERAL CHIP ADDRESS DECODING 

The peripheral chip decoding logic is similar in function to the address range decoding logic (see Paragraph 
6.9). The difference is that this logic generates peripheral chip enable signals instead of memory chip 
enable signals. Peripheral chips are enabled according to the addressing scheme shown in Paragraph 6.5. 
The peripheral chip decoding signals are internal to the DCT11-EM and are unavailable for expansion 
hardware. 

6.11 INTERRUPTS AND TRAPS 

Interrupt vectors are located as shown in Table 6-2. 

Interrupts are encoded and sent to the DCTtl-AA for handling. The DCT1I-AA also handles DMA 
requests and external vector requests via the interrupt logic. 

Some of the interrupt vectors above point to a “null” service routine. That is, they simply point to an RT1 
instruction. These include the power-fail, DLART transmitter, external, and 8251A transmitter interrupts. 
If you do not write your own service routines and change the interrupt vectors accordingly, these interrupts 
will have no effect. 
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Table 6-2 Interrupt Vector Locations 


Interrupt 

Vector 



Address 

Priority 

Type of Interrupt 



HALT switch and HALT instruction 

000024 

- 

Nonmaskable power fail interrupt (caused by pressing INT switch) 

000060 

4 

DLART receiver (INT3) 

000064 

4 

DLART transmitter (INT2) 

000100 

6 

(external interrupt (INTB) 

000104 

6 

Keypad/LF.D scanning (INTA) 

000120 

5 

8251A receiver (1NT7) 

000124 

5 

8251A transmitter (INT6) 

000140 

7 

DLART receiver break (INTF) 


Other vectors include the following. 

Vector Address Description 

000010 Illegal instruction trap 

000014 Breakpoint and trace service 

6.12 TIMING 

Fundamental timing signals are generated by: 

1. A 7.5 MHz crystal oscillator which drives the DCT11-AA microprocessor 

2. A 614.4 KHz clock which drives the DLART. 

The 7.5 MHz signal is also divided down to 1.875 MHz to drive the 8251A auxiliary serial line. These 
signals are unavailable for external use. 

6.13 MISCELLANEOUS CONTROL LOGIC 

There are pieces of logic spread throughout the DCT11-EM that generate miscellaneous control signals. 
The only signal that the miscellaneous control logic makes available to you is the signal RDY L, which, 
when asserted, causes a single cycle slip. Note that the installation of the jumper disables the on-board 
generation of RDY L. 

6.14 KEYPAD/LEDS 

The keypad/LEDs combination communicates with the rest of the DCTII-EM through the 8255A 
parallel port peripheral chip (sec Paragraph 6.5.1). Note that the lower four bits of port C arc decoded and 
are used to drive the LED anodes and keypad simultaneously. These lines are asserted sequentially in 
response to the 1NTA interrupt request. 

6.15 HALT AND INT SWITCHES 

The operaton of the HALT and INT switches is explained in Paragraphs 3.9 and 3.10, respectively. To 
summarize, pressing the HALT switch asserts the HALT signal which restarts the keypad monitor and 
unconditionally stops whatever operation was in progress. Pressing the INT switch asserts the PF signal 
which causes a power-fail interrupt. Power-fail interrupts have no effect unless you write a service routine 
(vectored by location 24) to handle the interrupts. 

Both HALT and PF are available to you via the 60-pin expansion connector. 
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6.16 CONNECTORS 

There are four male connectors on the DCTl 1-EM as follows. 


Connector 

Number 
of Pins 

Function 

Jl 

60 

Connector for expansion hardware 

J2 

4 

Power supply connector 

J3 

25 

Auxiliary serial line 

J4 

25 

Console serial line 


J1, J3, and J4 are all standard size connectors. J2 is the connector you assembled when you installed the 
DCTl 1-EM. 

The pin assignments of these connectors are listed in Table 6-3. 


Table 6-3 DCTl 1-EM Connector Pin Assignments 
60-Pin Connector for Expansion Hardware (Jl) (see Figure 6-3) 


Pin 

Number 

Signal 

Name 

Description 

1 

ADOO H 

AD<15:00> is the buffered version of DAL<15:00>, the bidirectional mul- 

2 

AD01 H 

tiplexed data/address lines of the DCTU-AA. 

3 

AD02 H 


4 

A DO 3 H 


5 

AD04 H 


6 

ADOS H 


7 

AD06 H 


8 

AD07 H 


9 

A DO 8 H 


10 

AD09 H 


11 

ADIO H 


12 

ADI 1 H 


13 

AD12 H 


14 

AD! 3 H 


15 

AD14 H 


16 

AD! 5 H 


17 

AIO H 

Al<7:0> is the buffered version of the DCTl 1-AA’s Al<7:0> address interrupt 

18 

All H 

lines. Outpul only. During DMA transactions, these iines are set to the high 

19 

AI2 H 

impedance state. 

20 

A(3 H 


21 

AI4 H 


22 

AI5 H 


23 

AI6 H 


24 

AI7 H 


25 

GND 


26 

RESET L 

Buffered control signal. Output only. Corresponds to the DCTl 1-AA’s -BCLR 
signal. 

27 

PBC H 

PB<7:0> arc the bidirectional port B lines of the 8255A parallel port chip. 

28 

PB) H 


29 

PB2 H 


30 

PB3 H 


31 

PB4 H 


32 

PBS H 


33 

PB6 H 


34 

PB7 H 


35 

HALT L 

Asserted when HALT switch is pressed. Open collector. 
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Table 6-3 DCTll-EM Connector Pin Assignments (Cont) 


60-Pin Connector for Expansion Hardware (J1) {see Figure 6-3) 


Pin 

Signal 


Number 

Name 

Description 

36 

PF L 

Asserted when INT switch is pressed. Open collector. 

37 

DMR L 

External DMA request line. Input only. 

38 

INTB L 

External interrupt request line. Input only. 

39 

VEC L 

External vector request line. Input only. 

40 

PI H 

Buffered control signal. Corresponds to the DCT1 l-AA’s PI signal. Output only. 

41 

GND 


42 

ARD02 H 

Decoding signal for the address range 040000-057777. Output only. 

43 

ARD03 H 

Decoding signal for the address range 060000-077777. Output only. 

44 

ARD17 L 

Decoding signal for the address range 160000-177777. Output only. 

45 

IACK L 

Buffered control signal. Interrupt acknowledge. Output only. 

46 

DMO L 

Buffered control signal. DMA acknowledge. Output only. 

47 

SEL1 H 

Buffered control signal. Corresponds to DCT1 l-AA’s SELl signal. Output only. 

48 

SELO H 

Buffered control signal. Corresponds to DCT1 l-AA’s SELO signal. Output only. 

49 

WLB L 

Buffered control signal. Corresponds to DCT1 l-AA’s R/-WLB signal Set to 
high impedance state during DMA. Input or output. 

50 

WHB L 

Buffered control signal. Corresponds to DCT1 l-AA’s R/-WHB signal. Set to 
high impedance state during DMA. Input or output. 

51 

GND 


52 

RAS L 

Buffered control signal. Corresponds to DCT1 l-AA’s —RAS signal. Output 
only. 

53 

GND 


54 

CAS L 

Buffered control signal. Corresponds to DCTI l-AA’s —CAS signal. Output only. 

55 

GND 


56 

DBIN L 

Buffered control signal. Read enable line. Output only. 

57 

GND 


58 

COUT H 

Buffered control signal. Corresponds to DCTI l-AA’s COUT signal Output 
only. 

59 

GND 


60 

RDY L 

Causes single cycle slip when asserted. Open collector. 
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Table 6-3 DCTI1-EM Connector Pin Assignments (C’ont) 


Power Supply Connector (J2) 


Pin 

Number 

Signal 

Name 

Description 

) 

+ 12VDC 

Power signal 

2 

+ 5VDC 

Power signal 

3 

GND 


4 

— 12VDC 

Power signal 


Auxiliary Serial Line Connector (J3) 


Pin 

Number 

Signal 

Name 

Description 

1 

FGND 

Frame ground 

2 

peso 

Serial data out 

3 

PCSI 

Serial data in 

4 

PRTS 

Request to send 

5 

PCTS 

Clear to send 

6 

PDSR 

Data set ready 

7 

GND 

Signal ground 

8 

- 

Not used 

9 

- 

Not used 

10 

- 

Not used 

11 

- 

Not used 

12 

- 

Not used 

13 

- 

Not used 

14 

- 

Not used 

15 

- 

Not used 

16 

- 

Not used 

17 

- 

Not used 

18 

- 

Not used 

19 

- 

Not used 

20 

PDTR 

Data terminal ready 

21 

- 

Not used 

22 

- 

Not used 

23 

- 

Not used 

24 

- 

Not used 

25 

- 

Not used 
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Table 6-3 DCT11-EM Connector Pin Assignments (Cont) 


Console Serial Line Connector (J4) 


Pin 

Number 

Signal 

Name 

Description 

1 

FOND 

Frame ground 

2 

DLSO 

Serial data out 

3 

DLSI 

Serial data in 

4 

RTS 

Request to send (always ON) 

5 

- 

Not used 

6 

- 

Not used 

7 

GND 

Signal ground 

8 

- 

Not used 

9 

- 

Not used 

10 

- 

Not used 

1 l 

- 

Not used 

12 

- 

Not used 

13 

- 

Not used 

14 

- 

Not used 

15 

- 

Not used 

16 

- 

Not used 

17 

- 

Not used 

18 

- 

Not used 

19 

- 

Not used 

20 

DTR 

Data terminal ready (always ON) 

21 

- 

Not used 

22 

- 

Not used 

23 

- 

Not used 

24 

- 

Not used 

25 


Not used 


59 57 55 53 51 49 47 45 43 41 39 37 35 33 31 29 27 25 23 21 1 9 17 1 5 13 1 J 9 



PC BOARD 


Figure 6-3 60-Pin Connector Pin Assignments 


6.17 HARDWARE EXPANSION - EXAMPLE 

If you plan to develop and run large programs, one of the first expansion hardware circuits you may want 
to build is a memory module. Figure 6-4 shows a design for a 16 KB module. 

The module responds to addresses 040000 through 077777. The address range decoding signals, ARD02 
H and ARD03 H, are used to enable the module. 

Note that the signal names on connector J1 of the memory module arc in the opposite order as those 
shown on connector J1 of the DCTl 1-EM. This scheme eliminates the need to twist the interconnecting 
cable. 
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1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


.ENABL LC 

T-ll EVALUATION MODULE MONITOR 


Version 1.0 3.E.G. Hudson* Ka. 


COPYRIGHT tCJ 1932 BY 

digital equipment corporation, maynard. MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND NAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FDR THE USE DR RELIABILITY OF ITS 
SOFTWARE OH EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL, 
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T-ll Evaluation Module Monitor MACRO V05.00 Sundae lJ-Msr-83 0-4! 10 Rase 2 


1 


2 


■TITLE T-ll Evaluation Module Monitor 

3 


.IBENT 

700,001/ 


4 

K 


.SBTTL Definitions 


J 

4 

000000 

R0 

=20 

(Registers 

7 

000001 

K1 

=:i 


8 

000002 

R2 

=22 


9 

000003 

R3 

=23 


10 

000004 

R4 

-24 


11 

000005 

R5 

-25 


12 

000004 

SP 

-24 


13 

14 

15 

000007 

PC 

=27 


000024 

PFVEC 

==024 

Ipower fail vectorr called by INT button 

14 

000040 

CONIN 

==040 

5DLART receiver interrupt vector 

17 

000044 

CONCUT 

==044 

1DLART transBitter interrupt vector 

18 

000120 

AUXIN 

==120 

18251 receiver interrupt vector 

19 

000124 

AUXOUT 

==124 

18251 transiitter interrupt vector 

20 

000100 

USERIV 

==100 

lunconiitted interrupt vector 

21 

000104 

LE8IV 

==104 

1LED display interrupt vector 

22 

23 

000140 

CONBRK 

==140 

1DLART break interrupt, vector 

24 

25 

177440 

PtPORA 

==177440 

18255 port A (write only) 

24 

177542 

PtPORI 

==177542 

Iport B (read only) available to user 

27 

177442 

PiPORO 

==177442 

(port B (write only) available to user 

28 

177444 

PtPORC 

==177444 

Iport C (write only) controls bits 3-0 

29 

177544 

P$PORD 

==177544 

(port C (read only) reads bits 7-4 

30 

31 

32 

177444 

PtCREG 

==177444 

18255 eoaeand resister (write only) 

177550 

AtRBUF 

==177550 

18251 receiver data buffer (read only) 

33 

177450 

AIXBOF 

==177450 

18251 transiitter data buffer (write only) 

34 

177552 

AtSREG 

==177552 

18251 status register (read only) 

35 

177452 

AiCREG 

==177452 

(8251 contend register (write only) 

34 





37 

177540 

CtRCSR 

==177540 

1DLART receiver cowand/status resister 

38 

177542 

CIRBUF 

==177542 

1DLART receiver data buffer 

39 

177544 

CIXCSR 

==177544 

(DLART transiitter co»»and/status register 

40 

177544 

CtXBUF 

==177544 

IDLART transiitter data buffer 
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Definitions 


1 

2 

3 

4 000000 

c 



•SBTTL 

Scratchpad 



.ASECT 


J 

6 

006500 

SCRPD1 

-- 

6500 

7 





8 

t) 

007320 

TBLTDP 

== 

SCRPD14620 

7 

ID 

006500 

4 UR 

=r 

6500 

11 





12 





13 


{console konitor flag byte 

14 





15 

007324 

LIHFLG 

** 

TBLT0P44 

16 

007325 

LASL1N 

== 

LINFLG41 

17 

000001 


F.SST1 

=001 

18 

000004 


F.NULL 

=004 

19 

000010 


F.SAVX 

=010 

20 

000020 


F.CQHM 

=020 

21 





22 

007326 

CURCOM 

== 

LASLIH+1 

23 

007327 

LASC0M 

== 

CURCOMtl 

24 

000001 


F.HMEM 

=001 

25 

000002 


F.VALU 

=002 

26 

000004 


F.UNDF 

=004 

27 

000010 


F.USftD 

=010 

28 





29 

007330 

THPMGD 

== 

LASCOMtl 

30 

007331 

PERH0D 

== 

TMPM0D41 

31 

000002 


F.ABS 

=002 

32 

004000 


F.VT 

=<400*010 

33 

000100 


F.IMST 

=100 

34 





35 

000200 


F.BTTM 

=200 

36 





37 

007332 

EXPFLG 

== 

PERMOB+1 

38 





39 

007333 

LEVEL 


EXPFL8F1 


locations in high RAM 


*7000 ibottoi of default console *onitor scratch, 

{default sytbol table—66. sykbol capacity 
(top of svibol tablet 2 words of nase scratch 

(TBLT0P-<66.*6> 


pairs—»ust start at even address 

{flags related to parsing of whole lines 

Jsaved flags froa previous line 

{line contained STEP coaaand 

{line is {functionally) e*pty 

iwe have saved expr for double paras coaaands 

iwe are in a consentt ignore characters 

{current coMand flags 

{saved flags fro» previous coktand 

{was an instruction knesonic 

{an undefined sytbol or directive 

(expression doesn't contain undefined sysbols 

(was a user defined sykbol or label 

{current output tode flags 
jpenanent output »ode flags 
(absolute valuest not sykbolic output 
ivt tode on or off 
{instruction output 

(if neither ASCII nor instruction* then nukerie 
{byte *ode 

(current expression flags 
{parenthesis level in expression 
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1 

2 

3 

4 

5 

4 
7 

5 
9 

10 

11 

12 

13 

14 

15 
14 
17 


{other variables! 


007334 


ADVADR *= 


LEVEL+1 


idue to the varied uses of this location a 


complete list is in order! 

DOCR! Wien dumping locations in response to a <CR>. the next address 
after that which has been dumped is saved in case the next 
command line reauests another dump. The value of ADVABR need 
only be kept intact between two successive empty command lines. 

I.BYTE. J.UCRD, GETINSr subroutines of GET IMS! 

These routines use APVABR as a running cops of the current 
address. The current address, as stored in MtADDR. »ust not 
be changed as successive values are deposited into RAM be a 
single instruction or directive, because this would alter the 
value of the dot (.) symbol (current location reference). 

DOSYMIJuses AWADR to save R2. which points to the name to be defined. 


18 



J 

while the value to be eauated is parsed. The value saved in 

19 



1 

R2 is an index 

to the name on the left of the eauals sign. if 

20 



P 

the name is one of the predefined symbols or a user symbol that 

21 



} 

has already been defined. 

22 



JTYPREGiuses ADVADR as 

a pointer to the list of registers to be typed. 

23 



?efhd: 

uses ADVADR to 

save the upper search range limit before Parsing 

24 

25 

24 

27 

28 



5 

the value and task parameters. 

007334 

SAVEXP 

== 

ADVAMt+2 

.saved expr value for double parameter commands 

007340 

C0UMT1 


SAVEXP+2 

.counter for upper level routines 

29 

30 

31 

007341 

CGUNT2 

== 

COUNT HI 

.counter for lower level routines 

007342 

MODE 

r= 

C0UHT2+1 

.addressing mode scratch—must be even address 

32 

33 

34 

007343 

OPERAT 

== 

MODE+t 

.save operator here in expressions 

007344 

CNTLC 

== 

0PERAT+1 

iCNTLC<0> set to 1 when console types "C and 
IF.APPL is set. meaning that the 

.currently running program has a "C handler 

35 

34 

37 

38 

39 

40 

007345 

DEL1M 

== 

CNTLCtl 

ithe .ASCII directive stores the delimiter here 





{now at 7344. bottom of console monitor stack 

41 

42 

43 

44 

007344 

BOTTOM 


DELIff+1 

.console monitor has 38 word stack 

{ROTE! interrupts need up to li stack locations 

007400 

SCRPAD 


B0TTCM+32 

.now at 7400. bottom of keypad monitor scratch 

45 

44 

47 

007442 

STACK 


SCRPAD+42 

.25 word stack for keypad monitor 

007442 

TBLB0T 

== 

STACK 

.pointer to bottom of symbol table space in use 

48 

007444 

MF8251 


STACK 4 2 

.8251 mode flaas 

49 

007444 

REPEAT 

r: 

STACK + 4 

{console monitor command line repeat counter 

50 

007470 

BUFFER 

== 

REPEAT42 

.94 character console line input buffer 

51 

007430 

BP 

ss 

BUFFER4140 

{buffer back pointer, must be even address 

52 

007431 

FP 

== 

BP+1 

.buffer forward pointer, must follow BP 

53 

007432 

H0STBF 

-- 

FP-fl 

.32 character host input buffer 

54 

007472 

HFP 

-- 

H0STBFP40 

{buffer forward pointer 

55 

007473 

HSTFLG 

== 

HFPfi 

{host flags 

54 

000200 


FeLOAD 

•200 

.1 = taking input from host 

57 

000100 


F.LDST 

=100 

tl = looking for .START to begin loading 
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58 

59 

SO 

000001 


F.BYTB 

=001 

r1 = ignoring eessage fro* hast (hste bucket) 

007674 

PWRFVS 

;; 

HSTFLG+1 

isave user's power fail vector here 

61 

007676 

KErm 


PURFVS42 

ikeupress service vector 

62 

007700 

KEXPYS 

= 3 

XEYFIW+2 

Isave user's keypress vector here 

S3 

007702 

USERVS 

== 

KEYPVSF2 

isave user's interrupt vector here 

64 

007704 

DEBNCE 

3 = 

USERVS+2 

ikespad debounce resister 

65 

007706 

FLAGS1 

:= 

DEBHCE+2 

iflas bits» defined as follows 

66 

000001 


F.DATA 

=000001 

il = data entry *ode 

67 

000002 


F.CHAN 

=000002 

i1 = nuneric key pressed after opening location 

68 

000004 


F.ABBR 

=000004 

il = address entry sode 

6? 

000010 


F .REG 

=000010 

il = register selection node 

70 

000020 


F.BftKS 

=000020 

il = breakpoint selection node 

71 

000040 


F.FUNC 

=000040 

il = special function selection node 

72 

000100 


F.USER 

=000100 

il = executing user code 

73 

000200 


F.SST 

=000200 

il = single stepping 

74 

000400 


FtBRKA 

=000400 

il = breakpoints active 'installed) 

75 

001000 


F.BRKG 

=001000 

il = currently stepping over a breakpoint 

76 

002000 


F.KEYP 

=002000 

il = running console wonitor 

77 

004000 


F.HOST 

=004000 

il = accepting console cossands fro* both ports 

78 

010000 


F.APPL 

=010000 

il = running p-rogra* with "C handler 

79 

020000 


F.TBAS 

=020000 

il = print address break point is at 

80 

040000 


F.PROT 

=040000 

il = ionitor scratch protection disabled 

81 

82 

83 

100000 


F.PAS1 

=100000 

il = console •onitor PAS31 sode active 

007710 

CONFLG 

-- 

FLAGS1F2 

iconsole line flassi susl be even address 

54 

000002 


F.STOP 

=002 

icontrol S eressedi execution suspended 

85 

000010 


F.CPBO 

=010 

iprosraoiable baud rate stored here 

86 

87 

88 

B9 

90 

91 

92 

000020 

000040 

000200 


F.CPB1 

F.CPB2 

F.A64X 

=020 

=040 

=200 

iaux port »ode word bit<0>r selects 16X or 44X 

007711 

AUXFLG 

== 

CONFLG+1 

icopy of what has been written to AtCREG 

007712 

SEGBUF 


AUXFLG+1 

>6 word seSient data buffer for LED displays 

93 

94 

007726 

SPCLBF 

__ 

SEGBUFF14 

ihigh byte for upper display' low for lower 
il word buffer for special 2 character display 

95 

007730 

TIME 

" 

SPCLBF+2 

iupper 6 bits count 60 seconds' lower 10 count 

96 

97 

007732 

♦RO 

-- 

TIME+2 

ieishthundredths of seconds 
isave user context here 

98 

007734 

1R1 

== 

*R0E2 


99 

007736 

*82 

= = 

«1F2 


100 

007740 

*83 


♦R212 


101 

007742 

*R4 

== 

*R3*2 


102 

007744 

(R5 

= - 

♦R442 


103 

007746 

*SP 

= = 

*R5t2 


104 

007750 

*PC 

= = 

*SPt2 


105 

007752 

♦PS 

= = 

*PCk2 


106 

007754 

♦WATCH 

= = 

*PSI2 

iwatchpoint address 

107 

007756 

♦AMiR 

== 

♦WATCHP2 

(current address 

108 

007760 

8RKFIL 

-- 

*ABDRE2 

ifile of four breakpoint address*conlents pairs 
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Scratchpad locations in hidh RAM 


1 


£ 

3 

4 

5 133000 

6 

7 

8 

9 

10 
n 


12 



13 133000 

010046 


14 133002 

010146 


15 133004 

113700 

177560 

16 133010 

100375 


17 133012 

013700 

177562 

18 133016 

100005 


19 133020 

012700 

000007 

20 133024 

004767 

000510 

21 133030 

000457 


22 



23 133032 

042700 

177600 

24 133036 

001454 


25 133040 

120027 

000003 

26 133044 

001454 


27 133046 

120027 

000031 

28 133052 

001461 


29 133054 

132737 

000002 

30 133062 

001407 


31 133064 

120027 

000021 

32 133070 

001345 


33 133072 

142737 

000002 

34 133100 

000433 


35 



36 133102 

120027 

000023 

37 133106 

001006 


38 133110 

152737 

000002 

39 133116 

106427 

000200 

40 133122 

000730 


41 



42 133124 

120027 

000017 

43 133130 

001004 


44 133132 

152737 

000001 

45 133140 

000413 


46 



47 133142 

113701 

007631 

48 133146 

042701 

177400 

49 133152 

120127 

000140 

50 133156 

103320 


51 133160 

110061 

007470 

52 133164 

105237 

007631 

53 



54 133170 

012601 


55 133172 

012600 


56 133174 

000002 



57 


.SBTTL Corisole Serial tine Support Routines 
= 133000 


4+ 

LINEIN answers console input interrupts and buffers the ineoaind characters, 
f The characters "d. "C» '0. "Of "Sr and "Y and trapped in this routine. 



LINEIN11MOV 

RO.-(SP) 

.preserve sole redisters for scratch 



MOV 

Rlr-(SP) 



If! 

HOVB 

MC4RCSR.RO 

.read console receiver status redister 



BPL 

14 

.in polled wde. wait for a character 



MOV 

d*C4RIUf.R0 

.read console receiver 



BPL 

24 

Ino error bits set 


511 

MOV 

*007,R0 

lor. error, output <BELL> 



JSR 

PC.CHROl 




BR 

94 

iidnore character, continue 


211 

BIC 

♦177600i.RO 

.clear all but 7 bits 



BEQ 

91 

iidnore ASCII nulls 



CMPB 

R0»*003 

iis it "C? 



BEQ 

64 

i«es 



CMPB 

R0»*031 

lis it "Y? 



BEQ 

74 

lues 

007710 


BITB 

♦F.STOP.MCONFLOfare we waitind for "Q? 



BEQ 

34 

!no 



CMPB 

R0.*021 

!is it "Q? 



BNE 

11 

.no. wait for one 

007710 


BICB 

*F.STOP.S*CQNFLGiclear "S flag 



BR 

94 

iidnore character, continue 


34! 

CMPB 

RO.1023 

iis it "ST 



BNE 

44 

ino 

007710 


BISB 

*F.STOPi0*CQNFLGiset "S flag to suspend execution 



MIPS 

*200 

.accept other interrupts while suspended 



BR 

14 

.wait for "Q 


4$: 

CMPB 

R0.*0l7 

iis it "0? 



BNE 

84 

.no 

007673 


BISB 

♦F.BYTB.MHSTFLG.turn on host line byte bucket 



BR 

94 



811 

NOVB 

e*Fp,Ri 

idet buffer input pointer 



BIC 

*177400.R1 

.prevent sign extend 



CMPB 

Rl.*140 

iis buffer full’ (96 characters) 



BHIS 

54 

.yes. send <BELl': 



MOVB 

RO.BUfFER(Rl) 

ino. store character 



INCB 

e*FP 

.advance pointer 


941 

MOV 

(SPH.Rl 

.restore redisters 



MOV 

(SP)t.RO 




RTI 


.and continue 
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Console Serial Line Support Routines 


SB 133176 

032737 

030000 

00770A 

At! 

BIT 

♦F.APPL+F.TBASiMFLAGSl -stop on "C? 

59 133204 

001404 




8EQ 

7* 

•yes) not runnind program with "C handler 

60 133206 

152737 

000001 

007344 


B1SB 

♦IpMCNTLC 

!no) just set flad for application prodrsm 

61 133214 

zo 

000765 




BR 

9t 

iand return 

A3 133216 

012700 

054536 


7t! 

MOO 

*40O*131+13A)R0 

!"C and "Y terminate execution 

A4 133222 

004767 

000302 



JSR 

PC.CHRGUT 

fty?e J "Y' 

65 133226 

042737 

000300 

007706 


BIC 

♦F.USER+F.SST)8tFLAGSl iclear user prodras flsds 

AA 133234 

000167 

004330 



JMP 

tHONIT 

premove breakpoints) enter monitor 


T-ll Evaluation Module Monitor HACRD 005.00 Sunday 13-Mar-83 04110 Pade A 
Console Serial Line Support Routines 


1 

2 

3 

4 

5 
A 
7 
B 
9 

10 

11 

12 

13 

14 

15 
IA 

17 

18 

19 

20 
21 
22 

23 

24 

25 
2A 

27 

28 
29 


GETL1N prompts for a line from the console) and returns with the line in 
BUFFER and R3 cleared. Upon entry. BP should index the buffer Position 
just beyond the last character previously taken froa the buffer (if typeahead 
characters are desired). To throw away the typeahead characters) set BF and 
FP to zero. 

The characters typed on the console (and any earlier typeahead characters) 
are echoed to the console followind the proiipti *> Note that the ECHO 
routiner which was specialized for use with aonitor command input) echoes 
control characters as '"'<character> until a semicolon is found on the line. 
Control characters to the ridbt of a semicolon (i.e. within a , coaa^erlt , ) are 
echoed invisibly so that the user can echo control seouences to the console 
terminal. 

Uses! BF Index to BUFFER location Just beyond last fetched character 
(which is the location that contains the first character in 
the new line) 

Returns! 

BP Cleared 

R3 Cleared 

BUFFER Locations indexed by entry value of BP throudh the end of the 

buffer replace contents of locations at the bedinnind of the 

buffer 

FP Adjusted to index the new next available location in the buffet 


30 133240 

105037 

007324 

GETLIN5ICLRB 

84LINFLG 

preset line parsind flads for new line 

31 133244 

32 

33 133250 

004747 

000200 

JSR 

PC*PURGE 

ipurde bottom of buffer) clear runnind pointer 

0047A7 

000250 

it: jsr 

PCiCRLF 

kstart s new line 

34 133254 

012700 

02007A 

MOV 

»400t040J076)RO 

Itype > <SPACE) 

35 1332A0 

004767 

000244 

JSR 

PCpCHROUT 


3A 1332A4 

123703 

007631 

2t! CMPB 

84FPpR3 

isee if a character has been typed 

37 133270 

001775 


BEG 

2t 

ino) wait for one 

38 133272 

0047A7 

000A44 

JSR 

PCtECHO 

iecho character to console 

39 133276 

124327 

0074A7 000015 

CMPB 

BUFFER-l(R3)pt015 !is last character a <CR>? 

40 133304 

001347 


BNE 

2t 

*no) wait far one 

41 133306 

105037 

007324 

CLRB 

BtLINFLG 

ireset line flads from ECHO 

42 133312 

005003 


CLR 

R3 

iset runnind pointer to bedinnind of line 

43 133314 

000207 


RTS 

FC 

•return to caller 
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Console Serial Line Support Routines 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
1£ 

17 

IB 

19 133316 116300 007470 

20 133322 005203 

21 133324 120027 000011 

22 133330 103423 

23 133332 120027 000040 

24 133336 001403 

25 133340 120027 000014 

26 133344 101003 

27 133346 000270 

28 133350 000241 

29 133352 000207 

30 

31 133354 120027 000141 

32 133360 103407 

33 132362 120027 000172 

34 133366 101004 

35 133370 162700 000040 

36 133374 000261 

37 133376 000401 

38 133400 000241 

39 133402 000250 

40 133404 000207 

41 


005.00 Sunday 13-Har-83 04110 Rase 7 


GETCH retrieves characters fro* the input buffer usms R3 as an index. 

The character is placed in the lower 7 bits of RO. Lower case characters 
are folded to upper case. The N flas is set if the character is a separator 
(spacer horizontal tab. vertical tab. line feed. or for* feed! and the C flas 
is set if the character has beer, folded. Upon entry. R3 »ust index a bate 
within the console input buffer (R3 < 140 octal or 96. denial). 


Uses' R3 

Index to next character in console input buffer (PUFFER! 

Returns! 

R0 

Contains character fetched fro* BUFFER in lower 7 bits, 
upper bits cleared 

R3 

Set to previous value t 1 

N.C 

See coaients above 


getch:: 

MGVB 

BUFFER(R3),R0 

.yes. Set a character--bit 7 should be clear 


INC 

R3 



CMPB 

R0.4011 

iis it less than <TAB>? 


BL0 

3$ 

.yes. not a separator 


CMRB 

R0.4040 

ris it a space 7 


BEG 

24 

ises. a separator 


CMPB 

R0.4014 

iis it <FF> or lower? 


BHI 

44 

ino. check for lower case 

2»: 

SEN 


iflas a separator 


CLC 




RTS 

PC 


4»: 

CMPB 

ROr *141 

.is it lower case 'a'? 


BL0 

34 

ino. don't fold 


CMPB 

R0.4172 

>is it lower case ’z 1 ? 


BHI 

34 

.no. don't fold 


SUB 

♦040.R0 

•fold to upper case 


SEC 


iflas folded character 


BR 

54 


3»: 

CLC 


.flas a nor*al character 

54! 

CLN 




RTS 

PC 
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Console Serial Line Support Routines 


1 


■ENABL LSD 


3 

4 

5 
4 

7 

8 
9 

10 

11 

12 

13 

14 

15 
14 

17 

18 

19 

20 
21 
22 

23 

24 

25 
24 

27 

28 

29 

30 

31 

32 

33 

34 

35 
34 

37 

38 

39 

40 

41 

42 

43 

44 

45 
44 

47 

48 

49 

50 

51 


H 

GETLCH recovers the »ost recently gotten character. 





i Uses! 

R3 Index to location in BUFFER Just beyond character to be 




f 

returned 




f 

t Returns! 

) 

f 

R3 Foual to previous value 

R0 Contains fetched character in lower 7 bits, upper bits cleared 




» 

N?C (See header of GETCH routine) 

133404 

005303 


GETLCHJ!D€C 

R3 

133410 

000742 


BR 

GETCH 




iGETCHC is like G£TCH except it doesn't fold lower case. 

133412 

004747 

177700 

GETCHC!!JSR 

PC.GETCH 

133414 

103002 


24! BCC 

It 

133420 

042700 

000040 

ADD 

4040(R0 

133424 

000207 


It! RTS 

PC 




HE 





1 GETNXT is 

like GETCH except it doesn't return separators. 




i 

i (See usage 

infor»ation of GETCH) 

133424 

004747 

177444 

GETNXT1IJSR 

PC?GETCH 

133432 

100775 


BMI 

GETNXT 

133434 

000207 


RTS 

PC 




.DSABL LSD 




i++ 





i GETBP places the back pointer in R3 and prevents sign extension. This is 
i useful to refetch characters fro* a line (providing BP still indexes the 
i beginning of the line). 




1 

i Uses! 

BP Index to be transferred to R3 




i 

i Returns! 





? 

R3 Contains value in BP 

133434 

113703 

007430 

GETBP!! HOVB 

B4BP.R3 

133442 

042703 

177400 

BIC 

4177400»R3 

133444 

000207 


RTS 

PC 
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Console Serial Line Support Routines 

1 


2 

m 




3 


PURGE shifts the input buffer to eliainate space below BPi the back pointer. 

4 


Console input interrupts are blocked while the shift is occurring. R3> the 

5 

l 

F 

runnind 

pointen 

15 cleared. 

6 

7 

> 

1 

Uses! 

BP 

Index of first location to be kept in console input buffer 

8 

t 



(Locations below BUFFERtCBPl are overwritten) 

9 

f 


FP 

Index of first unused location in BUFFER 

10 

} 




11 

1 

Returns! 



12 

i 


BP 

Cleared 

13 

$ 


R3 

Cleared 

14 

f 


FP 

Indexes new first unused location in BUFFER 

15 






16 


17 133450 

106746 


purge:: mfps 

-<SP) 

isave priority 

IB 133452 

106427 

000340 


mips 

4340 

(disable interrupts teiporarils 

19 133456 

004767 

177754 


jsr 

PCiGETBP 

(Set back pointer 

20 133462 

005000 



CLR 

R0 

(take a pointer to the bottoi of the buffer 

21 133464 

120337 

007631 

2*! 

CrtPB 

R3(MFP 

(has entire buffer been transferred? 

22 133470 

103006 



BHIS 

11 

Ives 

23 133472 

116360 

007470 

007470 

MflVB 

BUFF£R(R3)t 8UFF£R(R0) itransfer a character 

24 133500 

005200 



INC 

R0 


25 133502 

005203 



INC 

R3 


26 133504 

000767 



BR 

2* 


27 







28 133506 

110037 

007631 

it: 

HQVB 

ROrMFP 

{fix forward pointer 

29 133512 

105037 

007630 


CLRB 

0*bp 

(back pointer( 

30 133516 

005003 



CLR 

R3 

(and runnind pointer 

31 133520 

106426 



HTPS 

<SP)+ 

(restore priorits 

32 133522 

000207 



RTS 

PC 


33 







34 







35 



m 




36 



! 

CRLF sends 

a carriage return and line feed to the console (and printer) 

37 



! 




38 



i 

Returns! 



39 



i 


R0 Contains sarbade (400 i 15 4 12) 

40 



i — 




41 







42 133524 

012700 

005015 

crlf: 

! MOV 

♦400»012+015,R0 

KCR>( <LF> 


43 
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Console Serial Line Support Routines 


3 [ CHROUT outputs the lower byte of RO to the console. and to the aux port 

4 I if the printer port bit is set. If the upper bste of RO is non-zero. 

5 I it is also sent to the port(s). CHR01 outputs only the lower bste of KOr 


6 

7 




J 

and CHRQ2 

car. be used to 

output a character to the aux. port onls. 

8 




i 

Uses! 

RO Lower bste contains first ASCII character to be output 

9 




j 


Upper bste contains zero or second character to be output 

10 

11 




i 




12 





.ENABL 

LSB 


13 133530 

004767 

000004 


cwmwjt: ijsr 

PC.CHRG1 

.output lower half of RO 

14 133534 

105700 




I STB 

RO 

!is there a second character? 

15 133533 

16 

17 133540 

001431 




BED 

It 

.no 

105737 

177564 


CKROi:: TSTB 

MCIXCSR 

.check console transiitter status register 

18 133544 

100375 




BPL 

CHROl 

.wait until transeitter reads bit is set 

19 133546 

110037 

177566 



HOOP 

RO.MCtXBUF 

.then output a character 

20 133552 

000423 




BR 

It 

!no. done 

21 133554 

132737 

000004 

177552 

CHR02 

:: bitb 

*004.f?*A*SREG 

.is aux port transsitter eupts? 

22 133562 

001774 




BEQ 

CHR02 

.no. wait until it is 

23 133564 

105737 

177552 



TSTB 

MAiSREG 

iis BSR active? 

24 133570 

000240 




MOP 


.placeholder for above line 

25 133572 

106746 




HFPS 

-ISP) 

.save priority 

26 133574 

106427 

000340 



NTPS 

*340 

.block interrupts while we 

27 133600 

112737 

000047 

177452 


HOVB 

t047,g*A4CREG 

.enable aux port transiitter 

28 133606 

110037 

177450 



NOVB 

ROiPtAtXBUF 

.output a character 

29 133612 

113737 

007711 

177452 


MOVE 

PtAUXFLGiGIAtCREG .restore previous aux port couand word 

30 133620 

106426 




MTPS 

<sm 

[restore priority 

31 133622 

000300 



it: 

SWAB 

RO 


32 133624 

000207 




RTS 

PC 


33 





.DSABL 

LSB 
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T-il Evaluation Module Monitor MACRO V05.00 Sunday 13-«ar-83 04110 Fade il 
Console Serial Line Support Routines 

1 

2 .SBTTL General I/O Support Routines 

3 


4 

f+4 



5 

t 

ASCOUT outputs the character in R0 to the port(s) if it is not a control 

6 

♦ 

character. If so. the special seauences '"A* through are sent with 

7 

8 

9 

f 

exceptions <SP>» 

CESDr arxi CDEL>. 

f 

t 

Uses! R0 

Lower 7 bits contain character to be printed 

10 

f 



11 

t 

Returns! 


12 

f 

R0 

Contains garbage 

13 

h~ 




14 


15 

133626 

042700 

177600 

ASCOUT11BIC 

♦177600.RO 

iaake RO a 7-bit character 

16 

133632 

120027 

000177 


CMP 8 

RO.I177 

!is it delete? 

17 

133636 

001413 



BEQ 

11 

iaesr twe <DEL> 

18 

133640 

120027 

000040 


CKPB 

R0r*040 

iis it control 1 

19 

133644 

101331 



SHI 

CHROOT 

ino. tape it norialla 

20 

133646 

001416 



8£G 

5S 

.•ate spaces visible 

21 

133650 

120027 

000033 


CMPB 

RO > #033 

iis it escape 1 

22 

133654 

001422 



BEO 

31 

iaes. tape 1ESO 

23 

133656 

000300 



SWAB 

RO 

ino. tape "(letter) 

24 

133660 

062700 

040136 


ADD 

♦4001100El36.RO 

.take it second character after 

25 

26 
27 

133664 

000721 



BR 

CHROUT 

land tape it 

133666 

012700 

042074 

111 

MOV 

♦40M104+074.RO 

itape <B 

28 

133672 

004767 

177632 


JSR 

PC.CHROUT 


29 

133676 

012700 

046105 


MOV 

♦4OO1114E105.R0 

.tape EL 

30 

31 

32 

133702 

000415 



BR 

41 


133704 

012700 

051474 

5*1 

HOU 

♦400U23+074fR0 

itape <S 

33 

133710 

004767 

177614 


JSR 

PC.CHROUT 


34 

133714 

012700 

037120 


MOV 

*4O0»076E120.R0 

itape P> 

35 

133720 

000703 



BR 

CHROUT 


36 

37 

133722 

012700 

042474 

31! 

MOV 

♦4OM105E074.R0 

itape <E 

38 

133726 

004767 

177576 


JSR 

PC.CHRDUT 


39 

133732 

012700 

043523 


MOV 

♦40M103E123.ro 

itape SC 

40 

133736 

004767 

177566 

4*1 

JSR 

f'C.CHRGUT 


41 

133742 

012700 

000076 


MOV 

♦076.RO 

.tape > 

42 

133746 

000670 



BR 

CHROUT 



43 
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General I/O Support Routines 


1 


3 

4 

5 
4 

7 

8 
? 

10 

11 

12 

13 133750 004747 177564 

14 133754 112100 

15 133756 001374 

16 133760 000207 

17 

18 


H 

PRINTA prints an ASCII string pointed to by Rl. The string nust end uith a 
■ blank byte. 

Uses! Rl Points to string of bytes to be printed 
Returns! 

Rl Points to byte Just beyond first byte in string containing zero 


.EMABL LSB 

It! JSR POCHROl 

PRINTA!IMOVB (RIH.RO ;get a character fro» string 

BNE It jprint it 

RTS PC 

.DSABl LSB 
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7-11 Evaluation Nodule Norn tor 
General I/O Support Routines 

1 

2 

3 

4 

5 
A 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 133762 004767 000016 

25 133766 012201 

26 133770 001374 

27 133772 000207 

28 

29 

30 133774 012201 

31 133776 004767 000002 

32 134002 012201 

33 

34 134004 004767 000004 

35 134010 004767 009000 

36 

37 134014 005000 

38 134016 005200 

39 134020 162791 003100 

40 134024 103374 

41 134026 005300 

42 134030 062701 003100 

43 134034 004767 000062 

44 134040 005700 

45 134042 001413 

46 134044 020027 000033 

47 134050 103413 

48 134052 001415 

49 134054 020027 000035 

50 134060 001415 

51 134062 062700 000022 

52 134066 000167 177436 

53 

54 134072 012700 000040 

55 134076 000773 

56 

57 134100 062700 000100 


KACRC 005,00 Sunday 13-Har-83 04110 Rase 13 


PRINT outputs a radix-50 string pointed to by R2< The string lust end with 
a blank word. 

PRINT1 outputs a sinsle radix-50 triplet in Rl. 

PRIHT2 outputs a pair of radix-50 triplets pointed to by R2, No teninator 
is needed, 

PRINTS outputs the lost significant radix-50 character in Rl and mltiplies 
Rl by 40. (PRINT3 is called 3 tiles by PRINT!,> 


Uses! R2 Points to RAD50 string to be printed (PRINT) 

Points to RAD50 pair of words to be printed (PRIHT2) 
Rl Contains RAD50 triplet to be printed (PRINT1) 
Contains RA950 character to be printed (PRINT3) 


Returns! 

R2 Points to next word after blank word in RAD50 string (PRINT) 
Points to word after the pair of words printed (PRINT25 
Rl Contains zero (PRINT- PRINTIf PRINT2) 

Contains <rrevious value of Rl> HOD 1609, I 40, (PRINT3) 


.ENABL 

LSB 


1*1 JSR 

PC.RRINT1 

itype the triplet 

print:: hoy 

(R2)EfR1 

fget a triplet 

BNE 

It 

inot the end yet 

RTS 

PC 


.DSABl 

LSB 


print2i:hov 

(R2H.R1 

/get a triplet 

JSR 

PCfPRINTI 

-type it 

HOV 

(R2)+iR1 

Iget another 

printi::jsr 

PCrPRIMT3 

(type the first character 

PRINT4I JSR 

PCfPRIMT3 

land the second 

PRINT3::ClR 

R0 

(divide by successive subtraction 

it: inc 

R0 


SUB 

♦50»50iRl 

(try to subtract 1600, 

BCC 

It 

/worked/ no borrow 

DEC 

R0 

(fix R0 

ADD 

♦50450-Rl 

>and Rl 

JSR 

PCrRlX40 

iiultiply Rl by 40 

TST 

R0 


BEQ 

2t 

i0 leans space 

CHP 

R0 p #033 

(032 leans Z 

BLO 

3t 

iA through Z 

BEQ 

4t 

r 033 leans t 

CHP 

R0»#035 

!035 is undefined/ but type t 

BEQ 

5t 


ADD 

♦022 fRO 

i0 through 9 and 

6t! JHP 

CHR0UT 


2t: HDV 

♦040fRO 

(type space 

BR 

6t 


3$: ADD 

♦IOOfRO 

!A through Z 
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SB 134104 

000770 


RR 

61 


59 

40 134104 

012700 

000044 

411 MOM 

♦044.RO 

Hype 1 

41 134112 

42 

000745 


BR 

61 


43 134114 

012700 

000052 

511 MOM 

♦052.RO 

ILype t 

44 134120 

000762 


BR 

41 


45 

46 134122 

006301 


R1X4011 ABL 

R1 

.•ulliply R1 by 8 

67 134124 

006301 


ASL 

R1 


68 134126 

004301 


ASL 

R1 


69 134130 

010144 


MOM 

Rl.-(SP) 

isave 8 X 

70 134132 

006301 


ASL 

R1 


71 134134 

006301 


ASL 

R1 

.32 X 

72 134134 

062601 


ADO 

(SPH.R1 

.plus 8 X aakes 40 X 

73 134140 

000207 


RTS 

PC 



74 
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1 

2 

3 

4 

5 

6 

7 

8 
9 
10 
11 
12 

13 

14 

15 

16 
17 


ECHO reads the line buffer as characters are typed in and echoes the* 
to the console (and printer; if selected), Control characters are echoed 
as ''(letter! except within cottents. LINFIG is used to record cowent status. 

If ECHO encounters "Ri "II; "X, or \BELETE>, it responds or todifies the line 
buffer accordingly, ECHO besins echoing characters at the running pointer 
(R3) and continues until R3 = FP or a <CR> is found, 

Uses! R3 Index to first character in BUFFER to be echoed 
FF Index to end of data in buffer 

Returns! 

R3 Index to location in BUFFER logically just beyond last echoed 
bate (This leans R3 returns zero if "U or "X was the last 
character in the buffer; etc.) 


18 


19 134142 

116300 

007470 


ECHO!: 

KOVB 

BUFFER (R3HR0 

iset character 

20 134146 

120027 

000022 



CHPB 

R0.4022 

Bis it “R? 

21 134152 

001447 




BEQ 

14 

iyesi retype line 

22 134154 

120027 

000030 



CHP8 

R0» #030 

(is it -V 

23 134160 

001002 




8NE 

34 

ino 

24 134162 

012700 

000025 



mow 

♦025;R0 

iiap "X to "U 

25 134166 

120027 

000025 


34! 

CHPB 

R0.4025 

* is it "U? 

26 134172 

001450 




BEQ 

24 

iyes, cancel line 

27 134174 

120027 

000015 



ChPB 

R0;*015 

iis it <CR>? 

28 134200 

001432 




BEQ 

174 

ryes, stop echoing characters 

29 134202 

120027 

000177 



CHPB 

R0r*177 

iis it <DELETE>’ 

30 134206 

001453 




BEQ 

44 

lyes, delete last character 

31 134210 

120027 

000073 



CHPB 

R0;4073 

iis it a seiicolon 

32 134214 

001003 




m 

54 

ino 

33 134216 

152737 

000020 

007324 


B1SB 

♦F,COHh;WLIHFLGiyes; show we are in a consent 

34 134224 

132737 

000020 

007324 

54! 

BITB 

♦F,COMM,8411NFLGia re we in a cowent? 

35 134232 

001006 




BNE 

74 

iyes, echo characters literally 

36 134234 

004767 

177152 



JSR 

PC.GETCHC 


37 134240 

100404 




BHI 

64 


38 134242 

004767 

177360 


144! 

JSR 

PCtASCOUT 

itype non-erintable characters visibly 

39 134246 

40 

41 134250 

000403 




8R 

84 


005203 



74! 

INC 

R3 

,advance running pointer 

42 134252 

004767 

177252 


64! 

JSR 

FCtCHRQUT 

itype non-printable characters as they are 

43 134256 

120337 

007631 


84! 

CHPB 

R3;MFP 

ihave we echoed everything? 

44 134262 

103727 




BL0 

ECHO 

ino; do sone nore 

45 134264 

46 

47 134266 

000207 




RTS 

PC 

iyes, continue 

005203 



174! 

INC 

R3 

istee east <CR; 

48 134270 

49 

50 134272 

000207 




RTS 

PC 

land return 

004767 

000172 


14! 

JSR 

PC,104 

isote cotton code 

51 134276 

004767 

000210 



JSR 

PC,154 

iretove "R froe line 

52 134302 

004767 

177130 



JSR 

PC,GETBP 

iso back to the beginning 

53 134306 

106427 

000000 



HTPS 

♦000 

itake characters again 

54 134312 

55 

56 134314 

000761 




BR 

84 

iand echo line 

004767 

000150 


24! 

JSR 

PC,104 

isote cotton code 

57 134320 

004767 

177112 



JSR 

PC.GETBP 

|go back to the bottot of the buffer 
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58 

134324 

110337 

007631 



MOVB 

R3r8#FP 

>indicate buffer eapis 

59 

134330 

106427 

oooooo 



MIPS 

4000 

itake characters adain 

60 

134334 

000207 




RTS 

PC 

•wait for new characters 

61 

62 

134336 

106427 

000200 


4»: 

MTPS 

♦200 

(don't take characters while buffer is fixed 

63 

134342 

004767 

000144 



JSR 

PC.154 

ireeove (DELETE/ fro# linet decreeent FP 

64 

134346 

120337 

007630 



CMPB 

R3(MBP 

fis there anuthznd to delete 7 

65 

134352 

001443 




BEQ 

94 

ino» continue 

66 

134354 

005303 




DEC 

R3 

iback up to character to be deleted 

67 

134356 

032767 

004000 

052744 

loot; 

BIT 

♦F.VTfTMPMOD 

isee if video »ade 

68 

134364 

001415 




BED 

2004 

ibranch if not 

69 

134366 

012700 

000010 



MOV 

♦10.RO 

iserid backspace 

70 

134372 

004767 

177132 



JSR 

PCiCHRQUT 


71 

134376 

012700 

000040 



MOV 

♦40iR0 

isend space 

72 

134402 

004767 

177122 



JSR 

PCfCHRBUT 


73 

134406 

012700 

000010 



MOV 

♦IOpRQ 

isend backspace 

74 

134412 

004767 

177112 



JSR 

PC.CHROUT 


75 

134416 

000410 




BR 

2104 

(skip printer ‘\‘ 

76 

134420 

012700 

000134 


2004! 

MOV 

♦134iR0 

Uspe ‘\‘ 

77 

134424 

004767 

177100 



JSR 

PCiCHROUT 


76 

134430 

116300 

007470 



MOVB 

Bi)FF£R(R3)?R0 

(Set deleted character 

79 

134434 

004767 

177166 



JSR 

PC.ASCOUT 

(tape it 

80 

134440 

116300 

007470 


2104! 

MOVB 

BUFFER(R3)»R0 

(check if we deleted a 'f‘ 

B1 

134444 

120027 

000073 



CMPB 

R0r*073 


82 

134450 

001002 




BNE 

134 


83 

134452 

105037 

007324 



CLRB 

04LINFLG 

(uesi so we aren't in a co#*ent ananore 

84 

134456 

004767 

000030 


134! 

JSR 

PCtl54 

ireiove deleted character fro# buffer 

85 

134462 

106427 

oooooo 


94! 

MTPS 

*000 

(take characters adain 

86 

134466 

000673 




BR 

84 

fecho rest of line 

87 

88 

134470 

106427 

000200 


104! 

MTPS 

♦200 

(don't take characters for a while 

89 

134474 

004767 

177126 



JSR 

PCrASCOUT 

Jecho the special character 

90 

134500 

004767 

177020 



JSR 

PCpCRLF 

(Start a new line 

91 

134504 

105037 

007324 



CLRB 

04LINFLG 

(initialize flads 

92 

07 

134510 

000207 




RTS 

PC 


70 

94 

134512 

110300 



154! 

MOVB 

R3iR0 

idet a scratch cops of runnind pointer 

95 

134514 

116060 

007471 

007470 

164! 

MOVB 

BUFFERPKROb 

BUFFER(RO) ireiovO 1 character fro# buffer 

96 

134522 

005200 




INC 

RO 


97 

134524 

120037 

007631 



CMPB 

RO(04FP 

Sis that evecsthind? 

98 

134530 

103771 




BLO 

164 

5m( do tore 

99 

134532 

105337 

007631 



DECS 

MFP 

!fn: FP 

100 

134536 

000207 




RTS 

PC 
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.SBTTL Host Line Support Routines 


4 




JH 




5 




} 

H0STIN answers aux. port 

receiver interrupts and buffers the incoainS 

6 




i 

characters In H0STBF lup 

to 32 characters). "Pi "C, "S, and "Y are iSnored 

7 




• 

coainS froa this port. Vhen the buffer becotes half-full (16 characters)! 

8 

9 




i 

a "S is 

sent to the host. 


to 

11 134540 

010046 



HDSTIM!!M0V 

RO.-(SP) 

(preserve soae registers for scratch 

12 134542 

010146 




MOV 

Rlt-(SP) 


13 134544 

113700 

177550 



HOVB 

84A4RBUF,R0 

(Set the character, reset interrupt 

14 134550 

132737 

000060 

177552 


BITB 

4060>B#A4SREG 

(fraainS or overrun error? 

15 134556 

001050 




BNE 

34 

(yes, beep console, and lanore character 

16 134560 

042700 

177600 



B1C 

1177600,RO 

(clear all but 7 bits 

17 134564 

001464 




BEO 

14 

!idnore ASCII nulls 

18 134566 

120027 

000003 



CMP6 

R0,4003 

iisnore "C 

19 134572 

001453 




BEO 

24 


20 134574 

120027 

000031 



CMPB 

R0,#031 

(and "Y 

21 134600 

001450 




BEO 

24 


22 134602 

120027 

000023 



CMPB 

R0.4023 

•and "S so that host line traps the saie chars 

23 134606 

001445 




BEQ 

24 

(as console line, even thouah lSnored 

24 134610 

113701 

007672 



MQVB 

B4HFP»R1 

(Set the host buffer input pointer 

25 134614 

042701 

177400 



BIC 

4177400,R1 

(prevent sisn extend 

26 134620 

120127 

000040 



CMPB 

Rl,440 

(is buffer full? 

27 134624 

103036 




BHIS 

24 

(yes, beep the console, isnore error 

28 134626 

110061 

007632 



HOVB 

RO,HOSTBF(Rl) 

(no, stare character 

29 134632 

105237 

007672 



INCB 

04HFP 

(advance the pointer 

30 134636 

120127 

000020 



CMPB 

R1.420 

(is buffer half full? 

31 134642 

103435 




BLO 

14 

(no, return 

32 134644 

132737 

000002 

007673 


BITB 

♦F.ST0P,84HSTFLG!have we el reads sent "S to h«t ? 

33 134652 

001031 




BME 

14 

(yes, return 

34 134654 

106466 

000006 



HTPS 

6(SF) 

(restore priority in case another char coaes in 

35 134660 

■012700 

000023 



MOV 

4023,RO 

(send "S to host 

36 134664 

004767 

176664 



JSR 

PC,CHR02 


37 134670 

152737 

000002 

007673 


BISB 

4F.STOP,84K$TFLG>show we have done so 

38 134676 

000417 




BR 

14 


39 

40 134700 

113701 

007711 


31! 

MOVB 

B4AUXFLG,R1 

(Set saved copy of A4CREG 

41 134704 

052701 

000020 



BIS 

420,R1 

(add the error reset bit 

42 134710 

110137 

177452 



MOVB 

R1.84A4CREG 

ireset errors 

43 134714 

113737 

007711 

177452 


MOVB 

B4AUXFLG,P4A4CR£G frestore to noraai 

44 134722 

012700 

000007 


24! 

HOV 

4007,RO 

(beer the console on error 

45 134726 

106466 

000006 



MIPS 

6<SP) 

(restore priority in case another char coaes in 

46 134732 

004767 

176602 



JSR 

PCtCHROl 


47 134736 

012601 



14! 

MOV 

(SPH.Rl 

(restore reSisters 

48 134740 

012600 




MOV 

(sm,R0 


49 134742 

50 

000002 




RTI 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

!1 

12 

13 

14 

15 

16 
17 


HGETCH Sets a character frot the host input buffer and shifts the buffer down 
one character. If the buffer is reduced fro* 16 or tore characters to Just 
four> a "Q is sent to the host. Do not call this routine if no characters 
are available in H05TBF (i.e, HFP = 0), 

Uses! HFP Index to next available location in HOSTBF 

F.STOP Status flag -1 if a '5 has been sent to the host 

Returns! 

R1 Lower bate contains the first character in HOSTBF? upper byte 
contains sidn extension of bit 7 

HFP Decre»ented to index new next available location in HOSTBF 
F.STOP Cleared if ~Q was sent 
R0 Contains Sarbade 


18 

19 134744 

005001 



HGETCH!!CLR 

RT 


20 134746 

113746 

007632 



HOVE 

MH0ST6F.- 

(SP) isave the first character in buffer 

21 134752 

005201 



It! 

INC 

Rl 


22 134754 

120137 

007672 



CMPB 

Rl.etHFP 

iare we too dose for co»fart? 

23 134760 

103004 




BHIS 

34 

Sues? disable interrupts before doind this one 

24 134762 

116161 

007632 

007631 


H0VB 

HOSTBF(Rl) 

iHOSTBF-l(Rl) Jshift down one character 

25 134770 

26 

27 134772 

000770 




BR 

It 

ido entire buffer up to one less than HFP 

106746 



31! 

MFPS 

-<SP> 

»save priority 

28 134774 

106427 

000340 



HIPS 

*140 

(disable interrupts to prevent screwups 

29 135000 

120137 

007672 


4$! 

CMPB 

Rl.MHFP 

»are we really done? 

30 135004 

103005 




BHIS 

5t 

!yes( all characters transferred 

31 135006 

116161 

007632 

007631 


H0VB 

HOSTBF(R1)fHOSTBF-1(R1) !shift down one character 

32 135014 

005201 




INC 

R1 


33 135016 

34 

35 135020 

000770 




BR 

4t 


105337 

007672 


51! 

DECS 

MHFP 

JadJust buffer input pointer 

36 135024 

005000 




HR 

RO 


37 135026 

123727 

007672 

000004 


CHPB 

?*HFP»I4 

jhave we reduced to Just four characters? 

38 135034 

101006 




BHI 

24 

(00 

39 135036 

132737 

000002 

007673 


BIT? 

♦F.STOPtRiHSTFLGland was "S sent? 

40 135044 

001402 




BEQ 

24 

!no 

41 135046 

012700 

000021 



MOV 

♦021 * RO 

jput "Q in RO 

42 135052 

106426 



2t: 

HTPS 

(SPH 

irestore priority 

43 135054 

112601 




HOVB 

(SP)t.Rl 

! recover character 

44 135056 

005700 




TST 

RO 

Jdid we decide to send "Q 7 

45 135060 

001405 




BEQ 

64 

ino 

46 135062 

004767 

176466 



JSR 

PC.CHR02 

fyest send "Q to host 

47 135066 

48 

49 135074 

142737 

000002 

007673 


BICB 

IF.STQPiMHSTFLGishow we have done so 

000207 



6»: 

RTS 

PC 
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1 

2 

3 

4 

5 
4 

7 

8 
? 

10 

11 

12 

13 

14 

15 


+4 


.SBTTL I/D Initialization and LED Driver 


IQINIT asserts the RESET L line on the board* thereby clearing the 
configuration of the peripheral chips. It then initializes the peripheral 
chips to an idle state. SETAX2 configures the aux. port to operate with 
a 16X clock* so that its baud rate will be eoual to that of the console port. 
The RS-232 control output signals are left deasserted* and the aux. port 
receiver and transmitter are left disabled. SETAX1 is like EETAX2* except 
that the clock divisor of the aux. port is set to 14 if RO = 0 upon entry* 
or 44 if R0 = 1. A 64X clock means that the au::. port baud rate will be 
one fourth of the console port baud rate. 


14 

135074 

000005 



IQINIT!1RESET 


*disable interrtups 

17 

135100 

112737 

000212 

177444 


N0V8 

#212>etP*CREG 

(Configure 8255 with port F as input 

18 

135104 

112737 

000010 

177444 


H0VB 

*oio.e»p$PORC 

(disable LED display 

19 

135114 

105037 

177540 



ORB 

B4CWCSR 

(disable DLART receiver 

20 

135120 

105037 

177564 



CLRD 

etctxcsR 

(disable DLART transmitter 

21 

135124 

005000 



SETAX2I CLR 

R0 

(indicate 16X clock for aux port 

22 

135124 

112737 

000200 

177452 

SETAXK H0VB 

»200,MA»CREG 

isend a harmless made word to take sure next 

23 








Jword is interpreted as a control word so that 

24 

135134 

112737 

000100 

177452 


N0VB 

♦ lOO.MASCREG 

(this control word puts us back to mode load 

25 

135142 

152737 

000002 

007444 


8ISB 

»2,MHF8251 

{make sure bauds rates will match 

24 

135150 

043700 

007464 



ADD 

8#NFB251*R0 

!add in mode byte incase user has changed anything 

27 

135154 

110037 

177452 



HOVB 

R0*8*A»CREG 

*now initialize modes 

28 

135140 

112737 

000020 

177452 


HQVB 

I020,8*A4CREG 

(reset error flags* disable 8251 

29 

30 

135144 

000207 




RTS 

PC 


31 

32 





;++ 




33 





t 

SETAUX reconfigures the au> 

. port to operate with a 14X clock if bit 7 of 

34 





» 

CONFLG = 

0* or with a 64X clock if bit 7 of C0NFLG - 1. The au;:. port 

35 





f 

receiver and transmitter are left disabled* but the RS-232 control signals 

34 





J 

reouest-to-send and data-terminal-ready are asserted, A copy of the command 

37 





» 

byte sent to the au:;, port 

is saved in AUXFLG for future reference* since 

38 

39 





f 

AtCREG is 

a write-only location. 

40 

41 

135170 

005000 



setaux::clr 

RO 


42 

135172 

105737 

007710 



TSTB 

MC0NFLG 

*is 64X clock currently selected? 

43 

135174 

100001 




BPL 

1* 

*no* 14X clock 

44 

135200 

005200 




INC 

RO 


45 

135202 

004767 

177720 


it: 

JSR 

PCtSETAXl 

iset aux port baud rate* disable 

44 

135204 

112737 

000042 

177452 


N0VB 

*042*MA»CREG 

(Command 8251 to assert RTS* DTR* and disable 

47 

135214 

112737 

000042 

007711 


H0YB 

♦042*8*AUXFLG 

(save a copy since AJCREG is write only 

48 

135222 

000207 




RTS 

PC 



49 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


I0VECT initializes the interrupt vectors at locations 60. 64. 70. 74, .... 

130. and 134 to point to an RTI instruction with priority 7, It then attaches 
interrupt service routines for console break, invalid instruction, breakpoint, 
and LED display refresh. The power fail vector is also attached to an RTI 
instruction, with priority 6. The LED display hardware and both serial ports 
are disabled. 


11 135224 




iovect:: 



12 135224 

012700 

000060 


MOV 

♦060.R0 

Unitialize I/O vectors and disable interrupt 

13 135230 

012701 

000014 


MOV 

*12.,R1 

* IS coded priority vectors (2 not used) 

14 135234 

012720 

135676 


1*1 MOV 

**NULLI,(ROH 

jset address eletent to null service routine 

15 135240 

012720 

000340 


MOV 

*340, (ROH 

iset priority level to 7 

lb 135244 

077105 



SOD 

Rlil* 


17 135246 

012720 

137114 


MOV 

♦BREAK.(ROH 

Jconnect console break routine 

18 135252 

012720 

000340 


MOV 

*340. (ROH 

^priority 7 for console break 

1? 135256 

012700 

000010 


MOV 

*010.RO 


20 135242 

012720 

137334 


MOV 

♦ITRAP. (ROH 

Jconnect invalid instruction trap 

21 135266 

012720 

000340 


MOV 

*340, (ROH 


22 135272 

012720 

137174 


MOV 

♦BRKPT. (ROH 

Jconnect breakpoint trap 

23 135276 

012720 

000340 


MOV 

*340, (ROH 


24 135302 

012737 

135344 

000104 

MOV 

♦DISPLA.MLEDIV 

Jconnect LED display routine 

25 135310 

005037 

007676 


CLR 

MKEYPIV 

Jdisconnect keypress service vector 

26 




.now disable interrupt hardware for ports 

27 135314 

112737 

00*010 

177444 

MOVB 

♦OlO.MPtPORC 

idisable LED display 

28 135322 

142737 

000100 

177560 

BICB 

♦lOO.RtCtRCSR 

Jdisable console receiver 

29 135330 

142737 

000100 

177564 

BICB 

*ioo,e*c$xcsR 

■disable console transmitter 

30 135336 

105037 

177452 


CLRE 

@#A*CREG 

Jdisable auxiliary receiver and transmitter 

31 135342 

000207 



RTS 

PC 



32 
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1 

2 

3 

4 

5 

6 

7 

8 
9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 

135344 

20 

135350 

21 

135352 

22 

135354 

23 

135356 

24 

135362 

25 

135364 

26 

135170 

27 

135372 

28 

135400 

29 

135406 

30 

135412 

31 

135414 

32 

135420 

33 

135422 

34 


35 

135426 

36 

135432 

37 

135436 

38 

135440 

39 

135444 

40 

135450 

41 

135452 

42 

135454 

43 

135462 

44 

135464 

45 

135470 

46 

135474 

47 

135476 

48 

135502 

49 

135506 

50 

135510 

51 

135512 

52 

135514 

53 

135516 

54 

135524 

55 

135526 

56 

135532 

57 

135534 


.ENABL USB 
H 

D1SPLA is the LED refresh interrupt service routine. It multiplexes the 
contents of SEG8UF to the LEDs through parallel port At and checks if a 
keypad key has been pressed. If a key has been pressed and the value in 
location KETPIV is not zerop then control will be transferred to the routine 
at [KEYFIVI for interrupt driven keypad input. The keypress routine at 
[KEYPIVl oust restore R2» Rip and RO from the stack (in that order) before 
executing an RTI. Note that if the contents of SPCLBF are nonzero. s flashing 
display of * xx will appear in the LEDs instead of the contents Df SEGBIF. 
Error' 

BISPLA also counts the nu»ber of times it has been called (which is determined 
by the hardware to be SOD times per second? when display refresh is enabled) 
in the location TIME. The lower 10 bits of TINE count 0 through 799.) and the 
upper six bits count 0 through 59. seconds. 


005237 

007730 


DISPLACING 

MTIME 

rkeep a count of SOOths of seconds in TIME 

010046 




M00 

ROt-(SP) 

.preserve registers 

010144 




H00 

Rl.-(SP) 


010246 




MOV 

R2i-(SP) 


013700 

007730 



MOV 

MTIME,RO 

.prepare to check for overflow of 800ths 

005100 




COM 

RO 


032700 

001440 



BIT 

*001440)R0 


001016 




BNE 

It 

.no overflow 

042737 

001777 

007730 


BID 

*001777. MTIME 

.overflow, so clear SOOths 

062737 

002000 

007730 


ADD 

*002000.MTIME 

.and add 1 second 

013700 

007730 



MOV 

MTIHE.RO 

.check if overflow past 60 seconds 

005100 




COM 

RO 


032700 

170000 



BIT 

*170000.RO 


001002 




BNE 

It 

.no overflow of seconds 

005037 

007730 



CLR 

MTiNE 

lyes, so clear the whole thing 

013700 

007730 


it: 

MOV 

MTIME, RO 


042700 

177770 



BIC 

*177770.RO 

.strip RO to make it a multiplex address 

006300 




ASI¬ 

RO 

.make it a word index 

016001 

007712 



MOV 

SEGBUF(RO).R! 

.set segment data for this digit pair 

005737 

007726 



TST 

MSPCLBF 

.is there a special error display’ 

001422 




BEQ 

3t 

.no 

005001 




CLR 

fil 


032737 

001000 

007730 


BIT 

*001000, MTIME 

.true for approx. 1/3 of each second 

001015 




BNE 

3t 

5 flashing error messagei no less 

016001 

135754 



MOV 

£RRSEG(R0),R1 

.get segment data for * Error' 

132700 

000004 



BITB 

I004.R0 

lis this digit 2 or 3? 

001410 




BEQ 

3t 

ino, so no overlay on upper display 

013702 

007726 



MOV 

MSPCLBF,R2 

Jget overlay characters 

132700 

000002 



BITB 

*002,RO 

Jis this digit 3? 

001001 




BNE 

4t 

idiSit 3 character is in upper byte 

000302 




SWAP 

R2 

iswap for digit 2 

105002 



41! 

CLRB 

R2 

Jsave only upper display character 

060201 




ADD 

R2.R1 

Icombine upper and lower display characters 

112737 

000010 

177444 

3t: 

MOVB 

♦OiO.MPtPORC 

.turn off display, enable upper display latch 

000301 




SHAB 

R1 

.get upper display data in lower byte 

110137 

177440 



MOVB 

Rl.MPiPORA 

i output upper display data 

000301 




SWAB 

R1 

.back to lower display data 

112737 

000007 

177444 


MOVB 

*0D7,MP*P0RC 

Idisplay still off. but upper latch closed 
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58 135542 

110137 

177440 


M0VB 

R1»?4P4P0RA 

ioutput lower display data 

59 135546 

010001 



MOV 

ROiRl 


60 135550 

006201 



ASR 

R1 

raultiplex disit address (byte index) 

61 135552 

110137 

177444 


MOVE 

R1,MP4P0RC 

,'turri or, display 

62 135556 

000240 



K0P 


!now do keypad input... 

63 135560 

113702 

177544 


MOVE 

MP4P0RD,R2 

,‘keypad return lines in bits 4 to 7 

64 135564 

042702 

177417 


BIC 

♦177417 fR2 

(clean up keypad data 

65 135570 

060002 



ADD 

R0,R2 

(coibirie index and return data 

66 135572 

013701 

007704 


MOV 

MDEBNCEtRI 

(Set a scratch copy of debounce state reSister 

67 135576 

001413 



BEQ 

54 

inot debouncins a key, take a new one 

68 135600 

074201 



XOR 

R2,R1 


69 135602 

001420 



BEQ 

64 

itotal latch, take it as a keypress 

70 135604 

032701 

000016 


BIT 

♦000016,R1 

(coieare lultiplex address field 

71 $35610 

001027 



BNE 

24 

inot the sale, so iSnore it 

72 135612 

032701 

000360 


BIT 

♦000360,R1 

icoipare return line field 

73 135616 

001424 



BEQ 

24 

(same key held, so iSnore it 

74 135620 

005037 

007704 


CLR 

84DEBNCE 

ino lonSer sale key pressed, so reset state 

75 135624 

76 

77 135626 

000421 



DR 

24 


004767 

000046 

5»: 

JSR 

PC .74 

iconvert positional bit to nuiber 

78 135632 

005701 



TST 

R1 

iis this a valid key depression 7 

79 135634 

100415 



EMI 

24 

ino, so isnore it 

80 135636 

010237 

007704 


MOV 

R2,MDEBNCE 

iyes, take it and wait for confirmation 

81 135642 

82 

83 135644 

000412 



BR 

24 


052737 

100000 007704 

6t: 

BIS 

♦100000»MD£BNCE!iake sure we Set only one keypress per key 

84 135652 

005737 

007676 


TST 

MKEYPIV 

ido we have an active vector? 

85 135656 

001404 



BEQ 

24 

ino, discard keypress 

86 135660 

004767 

000014 


JSR 

PC ,74 

5Set a useful key nuiber in R1 

87 135664 

oo 

000177 

052006 


JMP 

8KEYPIV 

ipass it to attached service routine 

00 

89 135670 

012602 


241 

MOV 

(SPH,R2 

(service routine at 8KEYPIV should also restore 

90 135672 

012601 



MOV 

<SPM,R1 

ithe reSisters in this tanner 

91 135674 

012600 



MOV 

(SPHiRO 


92 135676 

93 

94 135700 

000002 


4NULLI! 

5RTI 



010200 


745 

MOV 

R2»R0 

iiake a scratch copy 

95 135702 

000300 



SHAB 

RO 

imove key data to upper byte 

96 135704 

042700 

007777 


BIC 

♦007777,RO 

(keep only return line data 

97 135710 

012701 

000004 


MOV 

♦4fR1 

ishift out 4 bits *a;; 

9B 135714 

006300 


845 

ASL 

RO 

(shift out a bit, look for a one 

99 135716 

103013 



BCC 

94 

(didn't find it 

100 135720 

001013 



BNE 

104 

iiore than one true bit—invalid data 

101 135722 

005301 



DEC 

R1 

iRl is now 3, 2, 1, or 0 

102 135724 

006302 



ASL 

R2 

(least two bits are 0 

103 135726 

060201 



ADD 

R2,R1 

(combine multiplex address and positional count 

104 135730 

042701 

177740 


BIC 

♦177740,R1 

(clear, up key code 

105 135734 

006202 



ASR 

R2 

(restore R2 

106 135736 

010200 


1145 

MOV 

R2,R0 


107 135740 

042700 

177761 


BIC 

♦177761,RO 

(restore R0 

108 135744 

109 

000207 



RTS 

PC 


110 135746 

077116 


945 

SOB 

Rl,84 

(keep search!ns 

111 135750 

012701 

177777 

104! 

MOV 

♦177777,R1 

(indicate invalid data 

112 135754 

000770 



BR 

114 

(restore and exit 

113 




•DSABL 

LSD 


114 
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115 135754 000120 000134 000120 ERRSEG1 .WORD 120,134,120 (r, o, r 

114 135744 000120 000171 000000 .WORD 120,171,000 (r, £■ space 


T-ll Evaluation Module Monitor MACRO 005.00 
1/0 Initialization and LED Driver 


Sunday 13-Mar-83 04110 Fade 20 


1 

2 

3 

4 

5 
4 

7 

8 
9 

10 

11 

12 

13 

14 

15 
14 
17 
IB 
19 


4 + 


•SPTTL LED Display Support Routines 


DSPD1G takes a hex nuiber in the lower 4 bits of RO and displays the 
correspondins seswent pattern on the LED disit indexed by Rl. R1 - 0 
to index the rishtwost lower LED disit, = 1 to index the ridhtnost upper 
LED disit, ..., = 13 to index the lefteost upper LED disit. Returns Rl 
increwented by 2 to index the next disit to the left on the same display 
row. 


Uses! R0 
Rl 


Returns! 


R0 

Rl 


Hex value to be displayed 

Index to LED disit on which to display it 


Previous value with bits 15. thrauSh 4 cleared 
Previous value + 2 


20 135772 

042700 

177760 


DSPD1611BIC 

*177760,R0 

(ranSe-liiit R0 

21 135776 

020127 

000013 


CMP 

Rl,*000013 

(aaxitu* value for disit index 

22 134002 

101004 



BHI 

1* 

(out-of-ran3e> so isriore call 

23 136004 

116061 

136016 

007712 

MOVE 

HEXSEG(RO)iSEGBUHRl) (display disit 

24 136012 

005721 



TST 

<Rin 

(index next disit of sale display 

25 136014 

000207 



It! RTS 

PC 


26 







27 136016 

077 

006 

133 

HEXSEG11,BYTE 

077,006,133,117 

(0, 1, 2, 3 

136021 

117 






28 136022 

144 

155 

175 

• BYTE 

146,155,175,007 

(4, 5, 6, 7 

136025 

007 






29 134026 

177 

157 

147 

.BYTE 

177,157,147,174 

(8, 9, A, b 

136031 

174 






30 136032 

071 

134 

171 

.BYTE 

071,136,171,161 

(C, d, E, F 

136035 

141 






31 




.EVEN 




32 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 136036 

14 136042 

15 

16 136044 

17 

18 136050 

19 136052 

20 136054 

21 136060 

22 136062 

23 136066 

24 136072 

25 136074 

26 136076 

27 136100 

28 136102 

29 136104 

30 136106 

31 136110 

32 

33 

34 


DSPUNM and DSPLMM take full words in R2 and write octal nuibers to the upper 
and lower LED displays. respectively. 




> Uses! 

R2 Octal 

value to be displayed 



f Returns' 





. 

RO Contains garbage 



i 

R1 Contains garbage 

012701 

000001 

DSPUHM5!MOV 

tliRl 

.index upper display 

000402 


BR 

DSPNUH 


012701 

000000 

dsplmm::mov 

OOiRl 

.index lower display 

010246 


bspnun: nov 

K2,-(SP) 

!preserve R2 

010346 


NOV 

R3.-(SP) 

jget a scratch register 

012703 

000006 

NOV 

♦6»R3 

.count 6 digits 

010200 


it: hov 

R2.R0 

iiove octal digit to RO 

042700 

177770 

BIC 

♦177770.RO 

iiake sure it's octal 

004767 

177700 

JSft 

PC.DSPDIG 

.display digit 

000241 


CLC 



006002 


ROR 

R2 

!»ove to next octal digit 

006202 


ASR 

R2 


006202 


ASR 

R2 


077312 


SOB 

R3.lt 

> do five digits 

012603 


MOV 

(SP)+.R3 


012602 


NOV 

(SPH.R2 


000207 


RTS 

PC 
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1 



t H 




2 



t 

PSPNAM js 

a routine to display nates of registers* etc. on upper display. 

3 



i 

R2 points to the tessade to be displaced. The tessade should be a string 

4 



t 

of 3 bytes corresponding to the sedtent patterns for each LEO digit, starting 

5 



t 

with the 

ri3ht»ost digit. 

3 

7 

8 

9 



1 

» 

Uses! 

R2 

Pointer to string of segment patterns 



» 

\ 

Returns! 



10 



1 


R1 

Contains garbage 

11 



f 


RO 

Contains garbage 

12 



J — 




13 







14 133112 

012701 

000001 

dspnah::mov 

♦1,R1 

(index upper display 

15 133116 

010243 



NOV 

R2,-(SR) 

(preserve tessage index 

13 133120 

003302 



ASL 

R2 

(tultiply it by 3 

17 133122 

010200 



NOV 

R2iR0 


18 133124 

003302 



ASL 

R2 


19 133123 

030002 



ADO 

R0.R2 


20 133130 

012700 

000003 


NOV 

♦3,R0 

(character count 

21 133134 

113231 

133154 

007712 It! 

MOVE 

NANTBL(R2) *SEGBUE(R1) »*ove sesaent data to LED buffer 

22 133142 

005721 



TST 

(R1H 

(index next LED digit 

23 133144 

005202 



INC 

R2 

(index next character 

24 133143 

077003 



SOB 

RO, 1* 

(do six characters 

25 133150 

012302 



NOV 

(SP)+»R 2 

irestore R2 

23 133152 

000207 



RTS 

PC 



27 


28 136154 

000 

000 

077 

NANTBL!’..BYTE 

0,0*077,120,0,0 

(‘ rO 

133157 

120 

000 

000 




29 133132 

000 

000 

003 

.BYTE 

0,0*003*120*0* 0 

(' rl 

133135 

120 

000 

000 




30 133170 

000 

000 

133 

■ BYTE 

0*0,133*120*0*0 

C r2 

133173 

120 

000 

000 




31 133173 

OOO 

000 

117 

• BYTE 

0*0.117,120*0.0 

C r3 

136201 

120 

000 

000 




32 133204 

000 

000 

143 

.BYTE 

0,0,143,120.0,0 

;• r4 

133207 

120 

000 

000 




33 133212 

000 

000 

155 

.BYTE 

0,0,155.120,0,0 

(' r5 

133215 

120 

000 

000 




34 133220 

000 

OOO 

133 

.BYTE 

0,0*133,155,0*0 

;• sf 

133223 

155 

000 

000 




35 133223 

000 

000 

071 

.BYTE 

0,0,071,133*0,0 

C PC 

133231 

133 

OOO 

000 




33 133234 

000 

000 

155 

.BYTE 

0*0*155*133*0*0 

!' PS 

133237 

133 

000 

000 




37 133242 

120 

133 

137 

.BYTE 

120,133,137 


38 136245 

170 

124 

133 

.BYTE 

170,124,133 

CPntAdr 

39 133250 

000 

120 

133 

.BYTE 

000,120,136 


40 136253 

133 

167 

OOO 

.BYTE 

133,167,000 

C Addr 

41 136256 

000 

075 

171 

.BYTE 

000,075,171 


42 136231 

120 

000 

000 

•BYTE 

120,000,000 

(’ rEG 

43 133234 

003 

170 

124 

.BYTE 

006,170,124 


44 133237 

133 

120 

174 

.BYTE 

163,120,174 

CbrPr.tl 

45 133272 

133 

170 

124 

• BYTE 

133,170,124 


43 133275 

133 

120 

174 

.BYTE 

133,120,174 

i'brPnt2 

47 133300 

117 

170 

124 

.BYTE 

117,170,124 


48 133303 

133 

120 

174 

.BYTE 

133,120-174 

i 'brPnt3 
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49 134306 

146 

170 

124 

.BYTE 

146(170(124 


50 136311 

163 

120 

174 

.BYTE 

163(120)174 

('brF , nt4 1 

51 136314 

OOO 

130 

124 

.BYTE 

000(130(124 


52 134317 

034 

161 

000 

.BYTE 

034(161(000 

)■ Func * 

53 136322 

060 

134 

155 

.BYTE 

060)134(155 


54 136325 

124 

134 

071 

.BYTE 

124.134.071 

('ConSal* 

55 136330 

170 

120 

134 

.BYTE 

170(120(134 


56 134333 

163 

200 

167 

.BYTE 

163(200)167 

('A.Port' 


57 .EVEN 
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BLNKLO and BLHKHI are routines to erase the sequent data in the lower and 
upper LED bufferst respectively. Returns SarbaSe in R0 and fii. 


A 13633A 

012701 

000000 

blnklo::nov 

tOrRl 

7 136342 

B 

9 136344 

10 

000402 


DR 

BLNKDS 

012701 

000001 

BLNKHI!J«0V 

tlrRl 

11 136350 

012700 

000006 

BLNKDS! NOV 

*6rR0 

12 136354 

105041 

007712 

it: clrb 

SEGBUF(Rl) 

13 136360 

005721 


1ST 

(R1H 

14 136362 

077004 


SOB 

ROr It 

15 136364 

000207 


RTS 

PC 


(index lower display 


(index upper display 

(count A digits 
(blank a digit 

(index next didit of sate display level 
(do six digits 


DSPDEC takes a nutber in Ri and an index to either second-frot-lhe-left LED 
digit in R2 and displays the nutber as a dental value or. the correspor.dins 
LED diSits. R2 - 10 to index the lower row of LEDs. = 11 for the upper row, 
The lefttost LED digits are not affected. To display a two's eotpleaent 
decital valuer call this routine frot another routiner which places a tinus 
siSn in the lefttost LEO disit and passes the absolute value of the nutber 
to be displayed to this routine. 

Uses! Rl Decital value to be displayed 

R2 Index to LED row on which to display it 


Returns! 


ROr Rlr Contain SarbaSe 
R2r R3 


35 136366 

004767 

015662 

DSPDEC!!JSR 

PCtBINASl 

(set 10000's digit 

36 136372 

010146 


NDV 

ftli-(SP) 

(save retainder 

37 136374 

010201 


MOV 

R2rRl 

(index left LED diSit 

38 136376 

004767 

177370 

JSR 

PCrDSPBIG 

(display decital digit 

39 136402 

005742 


TST 

-<R2i 

(index next digit 

40 136404 

012601 


NOV 

(SP)frRl 


41 136406 

012703 

000004 

NOV 

*4rR3 

(take a counter 

42 136412 

004767 

015576 

It! JSR 

PC.BINASC 

(strip a disit frot Rl 

43 136416 

010146 


H0V 

Rlr-(SP) 

(switch registers 

44 136420 

010201 


NOV 

R2.R1 


45 136422 

004767 

177344 

JSR 

PCrDSPBIG 

(display decital digit 

46 136426 

005742 


TST 

-(R2) 

(index next disit to the riSht 

47 136430 

012601 


NOV 

(SPH.R1 

(set back decital nutber 

48 136432 

077311 


SOB 

R3.lt 

(do six diSits 

49 136434 

000207 


RTS 

PC 
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KEYGET turns on the LEDs and waits for a Keypress, The key nukber of the 
key that was pressed is returned in Rl. The keys are nuabered as follows: 
00 - [CLR] 12 - C A 1 

01 - t t 1 13 - C 9 1 

02 — C 4 3 14 - [ADO] 

03 - [ 7 ] 15 - CBAC1 

04 — C 0 1 14 -* [REG] 

05 - [ 2 1 17 - [ADR] 

04 - [ 5 ] 20 - [SST] 

07 - [ 8 ] 21 -- [GO ] 

10 - [EXA1 22 - LBPT] 

11 - [ 3 ] 23 ~ CFNC3 


Returns: 


Contains nuaber of key that was pressed 


KEYPIV Cleared 
SPCLBf Cleared 


Priority reduced to 5 


25 134434 

012737 

134470 

007474 

KEYGETI!MOV 

♦KEYGElrMKEYPIVilink input routine to keypress vector 

24 134444 

112737 

000007 

177444 

M0V8 

♦007fMP»PORC 

(turn on LED displays 

27 134452 

104701 



MFPS 

Rl 


28 134454 

120127 

000277 


CMPB 

R1f»277 

(priority 5 is taxiaui for LEDs to operate 

29 134440 

101402 



BL0S 

If 


30 134442 

104427 

000240 


MTPS 

♦240 

iset priority 5 

31 134444 

000777 



i*: br 

If 

(wait for keypress 

32 

33 134470 

005037 

007474 


KEYGE1! CLR 

MKEYPIV 

(disconnect Keypress vector 

34 134474 

005037 

007724 


CLR 

MSPCIBF 

(turn off flashing errorF if any 

35 134500 

012402 



MOV 

CSP>PfR2 

(restore R2 

34 134502 

005724 



TST 

(SP)+ 

(discard old Rl 

37 134504 

012400 



MOV 

(SPH.RO 

(restore K0 

36 134504 

005724 



TST 

(SP)+ 

(discard return address 

39 134510 

104424 



MTPS 

(SP>4 

(but replace PS byte 

40 134512 

000207 



RTS 

PC 

(return to caller of KEYGET 
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1 


2 Hi 

3 i KEYBCD translates the Key nuaber in Rt into a BCD value for the keys 0 to 9t 

4 i 12 for the CLR kesi 013 for the EXA key> and -1 for all other keys. 


5 


6 

7 


i Uses! 

R1 

Key nucber to be translated 

s 


f 

( Returns! 



9 


5 

R1 

Translated value 

10 


I— 



11 





12 134514 

114101 134522 

keybcd:;movb 

BCDTBLIRD.Rl (translate R1 into 

13 134520 

000207 

RTS 

PC 


14 





15 134522 

012 

bcdtbl: .byte 

012 

(CCLRJ 

14 134523 

001 

.BYTE 

001 

iC 1 1 

17 134524 

004 

.BYTE 

004 

!C 4 1 

IB 134525 

007 

.BYTE 

007 

(t 7 1 

19 134524 

000 

.BYTE 

000 

;c o i 

20 134527 

002 

.BYTE 

002 

i[ 2 1 

21 134530 

005 

.BYTE 

005 

([ 5 T 

22 134531 

010 

.BYTE 

010 

ft 8 ] 

23 134532 

013 

.BYTE 

013 

(CEXA1 

24 134533 

003 

.BYTE 

003 

ft 3 1 

25 134534 

004 

.BYTE 

004 

rt 4 T 

24 134535 

Oil 

.BYTE 

on 

ft 9 3 

27 134534 

377 

.BYTE 

377 

(CABOT 

28 134537 

377 

.BYTE 

377 

(tBACl 

29 134540 

377 

.BYTE 

377 

(EREGJ 

30 134541 

377 

.BYTE 

377 

([ADD] 

31 134542 

377 

.BYTE 

377 

(tSSTT 

32 134543 

377 

.BYTE 

377 

(tGO 1 

33 134544 

377 

.BYTE 

377 

(1BPTT 

34 134545 

377 

.BYTE 

377 

(CFNCT 

35 


.EVEN 




36 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 134546 042737 000002 

18 134554 004767 177244 

19 136560 004767 177652 

20 134564 004747 177724 

21 134570 005701 

22 134572 100770 

23 136574 020127 000012 

24 136600 101026 

25 136602 001420 

24 134604 020127 000010 

27 136610 103361 

28 136412 032737 000002 

29 136420 001004 

30 134622 005002 

31 136624 052737 000002 

32 136632 006302 

33 136634 006302 

34 136634 006302 

35 136640 060102 

36 136642 000744 

37 

38 134644 005002 

39 134446 052737 000002 

40 136454 000737 

41 

42 136656 000207 


MACRO 005.00 Sunday 13-M«r-83 04110 Pabe 26 


H 

NUMGET displays the current value of R2 in the lower row of LEDs. leavinb the 
! upper row intact. The keypad is enabled Vo allow the user to aodify the value 
in R2 with the 0 - 7 and CLR keys. The value in R2 is returned, whether 
altered or not. when the user presses EXA, 



i 

Uses! 

R2 Initial value 


i 

r 

Returns! 




t 


R2 Mew value (if chansed) 


9 


P.CHAM Flab in FLAGS1 is set if R2 was chanbed. cleared otherwise 


i 


R1 Contains barbaae 


1 


R0 Contains Sarbabe 

007706 

muhget;ibic 

♦F.CHAN .MFLAGS1 .show R2 hasn't chansed yet 


it: 

JSR 

PC.DSPLMH 

.display value in R2 on lower LEDs 



JSR 

PC.KEYGET 

.wait for a keypress 



JSR 

PCiKEVBCD 

.convert key nuaber into BCD 



TST 

R1 

.was it a lesal key? 



SMI 

It 

.no. bet another 



CMP 

R1.4012 

!was it nuaeric? 



SHI 

2i 

.no. it was EXA/EMT. so return value in R2 



BEG 

31 

.no. it was clear 



CMP 

R1.4010 

.was it 8 or 9 (not valid octal dibits)? 



BH1S 

It 

lyes, so ibnore it 

007706 


BIT 

IF.CHAN.BIFLAGSlihas R2 been chanSed yet? 



BNE 

4t 

.yes. Just scroll in key 



CLR 

R2 

.else clear old value first 

007706 


BIS 

♦F.CHANiBIFLAGSl 

.indicate it has been changed 



ASL 

R2 

»aake space for new dibit 



ASl 

R2 




ASL 

R2 




ADD 

R1.R2 

.scroll in new dibit 



BR 

It 

.accept additional dibits 


3$: 

CLR 

R2 

.clear nuaber for CLR key 

007706 


BIS 

*F.CHAN.8*fLAGSlishow R2 chansed 



BR 

It 



2*: 

RTS 

PC 

.return value 
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1 

2 .SBTTL Error Condition and Startup Entry Code 

3 

4 *44 

5 i ♦START is the pouerup initialzation routine* which is executed after the 

6 * diagnostics are cosnleted. 

7 »-- 

8 


9 136440 

005000 



♦START1!CLR 

R0 

(clear RAM fro* 0 to 27777 

10 136462 

012701 

014000 



MOV 

*14000,R1 


11 134466 

005020 



l*i 

CLR 

(R0)4 


12 136670 

077102 




S0F 

Rl.lt 


13 136672 

010537 

007726 



MOV 

R5.MSPCLBF 

iput power-up error code on LEDs 

14 136676 

012737 

007400 

007746 


MOV 

tSCRPAD.mSP 

.set up user stack pointer 

15 136704 

112737 

000050 

007710 


M0VB 

t050,BtC0NFLB 

(set default baud rates 

16 136712 

112767 

000116 

050544 


HOVB 

♦116,MF8251 

.set default value for 8251 *ode byte 

17 136720 

012737 

135676 

007702 


MOV 

♦♦NULLI,8tUSERVS(initialize user's interrupt vector 

18 136726 

012737 

135676 

000024 


MOV 

HNULL1 >1**24 

ipf points at null 

19 136734 

012737 

000340 

000026 


MOV 

*340,8126 

1 

20 136742 

012737 

007320 

007462 


MOV 

*TBLT0Pi8*TBLB0Tiinitialize e«pty ssebol table 

21 136750 

000402 




BR 

♦HALT+4 

(don't clear error display 


22 

23 *44 

24 * IHALT is the routine invoked by the HALT button, the HALT L line on the 

25 * board* and the HALT instruction. It saves the processor registers and the 

24 > contents of USERIV and KEYPIV if a user prodrai was running. It also 

27 * eerforos a bus reset and reinitialization of peripheral chips before 

28 * invoking the keypad oonitor. 

29 (-- 


30 


31 136752 

005037 

007726 

♦HALT!! CLR 

84SRCLBF 

(clear error code on LEDs, if any 

32 136756 

004767 

000022 

JSR 

PC.ltCSAVE 

(save context and fix user SP 

33 136762 

004767 

176110 

JSR 

PC.I0INIT 

(assert RESET line and reinitialize ports 

34 136766 

35 

042737 

177377 007706 

BIC 

*177377,8*FLAGS1 

(reset *ode, set keypad co*»and entry 
(leave F.BRKA so breakpoints will be removed 

36 136774' 

004767 

176224 

JSR 

PC.I0VECT 

(sake sure interrupt vectors aren't d3»ased 

37 137000 

000167 

000564 

JMP 

♦M0NIT 

(enter eonitor 


38 
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0 

i. 




tt4 




3 




t 

UCSAVE saves the processor 

registers and the contents of USERIV and KEYPIV 

4 

5 




t 

i — 

if a user prodrae was runnins. It also initializes the eonitor stack. 

6 

7 137004 

012637 

007460 


UCSAVEI1M0V 

(SPH.MSTACK-2 

ieove return address to eonitor stack 

8 137010 

032737 

000100 

007706 


BIT 

#F.USER»8#FLAGSlirunning user code? 

9 137016 

001433 




BED 

1# 

.no 

10 137020 

012637 

007750 



MOV 

<SPH»8**PC 

.yes. save user context, starting with PC 

11 137024 

112437 

007752 



M0VB 

(SP)t.MtPS 

iPS next 

12 137030 

042737 

177400 

007752 


BIC 

*177400. MIPS 

(prevent sign extension 

13 137036 

010637 

007744 



MOV 

SP.M1SP 

.fix and save stack pointer 

14 137042 

010037 

007732 



MOV 

RO.MtRO 

(save R0. 

15 137046 

010137 

007734 



MOV 

Rl.BttRl 

>R1. 

16 137052 

010237 

007734 



MOV 

R2.8HR2 

>R2. 

17 137056 

010337 

007740 



H0V 

R3.8#*R3 

(R3. 

18 137062 

010437 

007742 



MOV 

R4.M4R4 

(R4. and 

19 137064 

010537 

007744 



MOV 

R5.8*#R5 

5R5 

20 137072 

013737 

007674 

007700 


MOV 

8#KEYPIV.8#K£YPVS (save user keypress vector 

21 137100 

042737 

000100 

007704 


BIC 

♦F.USER,PtFLAGSl(show that user context has been saved 

22 137106 

012706 

007460 



MOV 

♦STACK-2.SP 

(So to eonitor stack 

23 137112 

24 

25 

26 

000207 



H+ 

RTS 

PC 

(and return to calling routine in eonitor 

27 




t 

BREAK is the console break interrupt service routine. It is sieilar to HALT 

28 




i 

except that it does not invoke the keypad aonitor if the console eonitor was 

29 




t 

runnins previously. The host »ode is tereinated by BREAK. 

30 

31 




? — 




32 137114 

005737 

177562 


break:: tst 

SBCtRBUF 

(acknowledge interrupt 

33 137120 

004747 

177660 



JSR 

PC.UCSAVE 

(save user context 

34 137124 

004747 

175744 



JSR 

PC.I0INIT 

(assert RESET line and reinitialize ports 


35 137130 012737 035377 007704 BIC #035377,MFLAGS1 (initialize eonitor *odes 

34 137136 012737 133000 000060 MOV *LINEIN,MC0H1N (hook up console input service routine 

37 137111 112737 000007 007710 BICB *007,8#CGNFLG .clear console line flags (but not speed) 

38 137152 113700 007710 MDVB 8*CONFLG,RO i3et current baud rate 

3? 137156 052700 000002 BIS #000002.RO .enable pros, baud rate, disable x»it interrupt 

10 137162 010037 177561 MOV R0,8#C#XCSR .transfer control word to console Port 

11 137166 012700 000001 MOV tl.RO .indicate console break service 

12 137172 000446 BR FERROR iso to fatal error handler to reenter eonitor 

43 
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4 + 


BRKPT is the breakpoint service routine. If invoked fro» a user prodra*. the 
processor context is saved. If invoked in response to a eonitor breakpoint 
rather than a single step or user breakpoint, the PC value saved fros the 
previous context is adjusted to point to the location which contained the 


7 

3 





i 

i — 

monitor breakpoint. 


9 

10 

137174 

106427 

000340 


BRKPT 

!' MTPS 

*340 

.disable interrupts in case vector is daeaSed 

11 

137200 

004767 

177600 



JSR 

PC.UCSAVE 

.save user context 

12 

137204 

032737 

001000 

007706 


BIT 

♦F.BRKG.MFLAGS1 .are we single stepping through a break 

13 








.Point 

14 

137212 

001405 




BEfi 

24 

loo. so check if single step or new breakpoint 

15 

137214 

042737 

001000 

007706 


BIC 

♦F.BRKG.MFLAGS1 

.reset condition 

16 

17 

IB 

137222 

OOOI67 

002466 



JNP 

460 

iiristall breakpoints and resuie execution 

137226 

032737 

000200 

007706 

241 

BIT 

♦F.SST.dtFLAGSl 

.are we single stepping? 

19 

137234 

001155 




BNE 

4H0NIT 

.yes. so rat a breakpoint—enter »onitor 

20 

137236 

032737 

000400 

007706 


BIT 

♦F.BRKA.MFLAGS1 

.are breakpoints installed? 

21 

137244 

001430 




BEQ 

54 

ino--user proSra* contains BRK. so signal error 

22 

137246 

013701 

007750 



MOV 

M4PC.R1 

.get user PC 

23 

137252 

005741 




TST 

—(R1) 

.back up to BRK instruction 

24 

137254 

012700 

007760 



MOV 

♦BRKFIL.R0 

.index breakpoint file 

25 

137260 

012702 

000004 



MOV 

♦4.R2 

.four entries in file 

26 

137264 

022001 



44! 

CMP 

(ROH.Rl 

.did we in fact encounter a breakpoint? 

27 

137266 

001403 




BEO 

34 

.yes. so adjust PC. no error eessade 

28 

137270 

005720 




TST 

(ROH 

.advance to next entry 

29 

137272 

077204 




SOB 

R2.44 


30 

31 

32 

137274 

000414 




BR 

54 

ino »atch--proSra» contains BRK...signal error 

137276 

052737 

020000 

007706 

34! 

BIS 

♦F.TBAS.BtFLABSl 

.show we need to print break point »essaSe 

33 

137304 

010137 

007750 



MOV 

R1.M4PC 

.fix PC 

34 

137310 

052737 

001000 

007706 


BIS 

♦F.BRKG.MFLAGSlfshcw we need to single step 

35 

137316 

032737 

002000 

007706 


BIT 

♦F.KEYP.OtFLAGSl 

>no eessaSe if in keypad »ode 

36 

137324 

001521 




BEQ 

4N0NIT 

iso Just enter nonitor 

37 

137326 

012700 

000002 


54! 

NOV 

♦2.R0 

.indicate breakpoint service 

38 

137332 

000406 




BR 

FERR0R 

.go to fatal error handler to reenter nonitor 


3V 

40 

41 

42 

43 

44 

45 


49 


44 


137334 

106427 

000340 

ITRAP!! MTPS 

*340 

137340 

004767 

177440 

JSR 

PC.UCSAVE 

137344 

012700 

000003 

MOV 

♦3.R0 


ITRAP is the illedal instruction trap routine. If a user prodra* was running, 
the processor context is saved before invoking the ear.itor. 


.disable interrupts in case vector is daaaded 

.save user context 

.indicate invalid instruction trap 
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T-ll Evaluation 
Error Condition 

1 

2 

3 

4 

5 

6 
7 

S 137350 

9 137352 

10 137356 

11 137360 

12 137362 

13 137370 

14 137372 

15 137376 

16 137402 

17 137406 

18 137412 

19 

20 137414 

21 137422 

22 

23 137424 

24 137426 

25 137430 

26 137432 

27 

28 137434 
137442 

29 137446 

30 137450 
137456 
137464 

31 137470 

32 137472 
137500 
137506 
137514 

33 137520 

34 137522 
137530 
137536 

35 137540 

36 

37 137542 

38 137544 

39 137546 

40 137550 

41 137552 

42 137554 

43 

44 


Nodule honitor MACRO V05.00 Sunday 13-Kar-83 04110 Pade 30 
and Startup Entry Cede 


144 

1 FERR0R sisnals errors for the above routines and others in the keypad aonitor. 

1 If the keypad aonitor is runnind. the errors are displayed on the LEDs. For 

1 the console aonitor. the error tessades are displayed on the console. 


010046 



terror::ndv 

R0--<SP) 

(save error lumber 

004767 

175646 


JSR 

PC.IOVECT 

laake sure interrupt vectors aren't daaaaed 

012600 



NOV 

(SP)t.RO 

.Set error nuaber 

006300 



ASL 

RO 

iturn it into an index 

032737 

002000 

007706 

FIT 

tF.KEYP.WFLAGSDare we in keypad aode? 

001411 



REQ 

It 

iyesi so no console aessade 

016002 

137422 


NOV 

FNESAG-2(R0): 

fR 2 (start address of selected aessade 

004767 

174122 


JSR 

PC.CRLf 

(send <CR> <LF> 

004767 

174360 


JSR 

PC.PRINT 

(print radix-50 aessade 

005037 

047630 


CLP 

MBP 

(aake sure nathind left in buffer 

000466 



24! BR 

tNONIT 


016037 

137542 

007726 

i$; nov 

FERCHR(RO).BtSPCLBF iput two character error code on LEDs 

000462 



BR 

tNONIT 



137434 

137450 

137472 

137522 


FNESAGll.WORB FMESG1 
.WORD FMESG2 
.WORD FHESG3 
.WORD FMESG4 


(pointers to error aessades 


012446 074444 
070511 042300 
000000 
007525 
055240 
076732 


017502 FMESG11 .RAD50 /CONSOLE BREAK/ 


003770 

020563 

017740 


063141 

060426 


.WORD 
FNESG21 .RAD50 


/BREAK POINT ENCOUNTERED/ 


000000 



.WORD 

0 



035206 

004051 

014411 

FMESG3I .RAD50 

/INVALID INSTRUCTION ENCOUNTERED 

055214 

071713 

077167 





053605 

054007 

102604 





021025 

014400 






000000 



• WORD 

0 



035206 

004051 

014423 

FMESG4! .RAD50 

/INVALID STACK POINTER/ 


076453 

042320 

057466 





076732 







000000 



.WORD 

0 



120 

076 


ferchr:;.byte 

120.076 

(r.U (Ur 

Error) 

174 

071 


.BYTE 

174.071 

ib.C (Cb 

Error) 

163 

174 


.BYTE 

163.174 

(P.b (bP 

Error) 

124 

006 


.BYTE 

124.006 

(n.I (In 

Error) 

163 

155 


.BYTE 

163.155 

(F’.S (SP 

Error) 

006 

174 


.BYTE 

006.174 

(I.b (bl 

Error) 




.EVEN 
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1 

2 

3 

4 

5 
A 


M0MIT1 is the monitor entry point to be used for normal exit from user 
prodrams. The processor context is saved, except for the PC> which retain 
its previous value so that the prodram can be run adain. 4M0NIT is the 
entry point used by monitor routines after the processor context has beer, 
saved. 


8 

9 


10 13755A 

106746 



MONITiliMFPS 

-(SP) 

.push PS. PC like fro* a trap 

11 137560 

013746 

007750 



MOV 

M4MXSP) 

.but keep previous user PC value 

12 137564 

004767 

177214 



JSR 

PCfUCSAVE 

.save user context 

13 137570 

032737 

000400 

007706 

*honit:;rit 

♦F.BRKAiMFLAGSl.breakpoints currently installed? 

14 137576 

001426 




BE0 

2$ 

ino 

15 137600 

012700 

000014 



MOV 

♦0L4.R0 

.index last breakpoint address 

16 137604 

016001 

007760 


3$: 

MOV 

BRKFlLiROJ.Rl 

.Set breakpoint address 

17 137610 

001404 




BEQ 

4t 

.this breakpoint is not defined 

18 137612 

005720 




TST 

CR0>+ 

.point to previous contents 

19 137614 

016011 

007760 



MOV 

BRKFIKROMRl) 

.‘restore contents of breakpoint 

20 137620 

005740 




TST 

-(R0> 

.do back to address 

21 137622 

024040 



4t: 

CMP 

-<K9b-{R0> 

.backup to next address 

22 137624 

005700 




TST 

RO 


23 137626 

100366 




BPL 

3i 

ido four entries 

24 137630 

013704 

007750 



MOV 

mpc.R4 

.point to next location 

25 137634 

032737 

020000 

007706 


BIT 

♦F.TBAS.BtFLAGSlisee if we should print mess3de 

26 137642 

001404 




BEG 

24 

.branch if not 

27 137644 

004767 

015400 



JSR 

PC.TYPABR 

.type address 

28 137650 

004767 

015314 



JSR 

PC.TYPLOI 

.disassemble next instruction 

29 137654 

042737 

030400 

007706 

20: 

BIC 

♦F.BRKAFF.APPL+F.TBAS.MFLAGSl .‘indicate breakpoints moved 

30 







.and enable break on "C 

31 137662 

032737 

002000 

007706 


BIT 

♦F.KEYP»B#FLAGS1.keypad »ode? 

32 137670 

001402 




BED 

14 

lyes, do to keypad monitor 

33 137672 
•u 

000167 

003026 



JMP 

CMONIT 

land do to console monitor 

35 137676 

If 

000167 

000276 


14! 

JMP 

KHONIT 


37 

000076 




.REPT 

<140000-.> 


38 





.BYTE 

0 
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1 

2 .SBTTL Entry Points 

3 

4 >44 

5 * MONITOR ENTRY POINTS! 

6 I— 

7 


8 140000 

000167 

015330 

START!! JMP 

DIAGNO 

Ido diagnostics) then initialize konitor 

9 

10 140004 

11 

12 

13 140010 

000167 

176742 

RSTART!! JMP 

♦HALT 

IHALT instructions and halt line vector 

Isave context and restart konitor 

000167 

177542 

HON1TR!JJMP 

MON1T1 

istandard konitor entry (no error condition) 
Jfrok user program save context and reaove 
(breakpoints 

14 

15 

16 

17 



»++ 



18 



t KETPAB/LED 

UTILITY 

ENTRY POINTS! 

19 



}-- 



20 

21 140014 

000167 

175752 

DGDISP!!JMP 

PSPDIG 

(Display nuiber in RO bits 3 to 0 as a hex 

22 





(digit at LED Position indexed by Rl. 

23 





!R1-12(10(06(04»02(00 -- lower display digits 

24 





IR1-I3(11(07(05(03(01 — upper display digits 

25 





IRC bits 15 to 4 are cleared( 2 is added to Rl 

20 






27 140020 

28 

29 

30 

31 140024 

000167 

176012 

UPDISP.'.’JMP 

DSPUMN 

(Display number in R2 as a 6 digit octal value 
(in the upper row of LEDs. Returns 15 in Rl 
land garbage in RO. 

000167 

176014 

LODISP!!JMP 

DSPLNM 

(Display nukber in R2 as a 6 digit octal value 
9in the lower row of LEDs. Returns 14 in Rl 
land garbage in R0. 

32 

33 

34 

35 140030 

000167 

176332 

DECDSP!!JMP 

PSPDEC 

(Display nukber in Rl as a 5 digit deciksl 

30 





lvalue on the row of LEDs indexed by R2. 

37 





IR2 = 010 for the lower roW( Oil for the upper 

38 





(Returns 2 ero in R! and R3( and garbage in R0 

39 





land R2. 

40 

41 140034 

000167 

176304 

UPBLHK!J JMP 

BLNKHI 

(Blank the upper row of LEDs. Returns zero in 

42 





(R0 and garbage in Rl. 

43 

44 140040 

000167 

176272 

ldblhk::jmp 

BLNKLQ 

IBlank the lower row of LEDs. Returns zero in 

45 





(R0 and garbage in Rl. 

46 

47 140044 

000167 

176366 

GETK£Y!!JNP 

KEYGET 

(Turn on LEDs and wait for a keypress. Return 

48 





ikey nukber in Rl. Modifies KEYFIV. 

49 

50 140050 

51 

52 

53 

54 140054 

000167 

176440 

BCDKEY!!JMP 

KEYBCD 

(Translate key nukber in Rl to a BCD value for 
(keys 0 to 9r 012 for the CLR keyi 013 for the 
IEX/ENTR key( and -1 for all other keys. 

000167 

176466 

6ETNiM!!JNP 

NUMGET 

(Display nukber in R2 as an octal value on the 

55 





Slower row of LEDs. Activate keypad and allow 

56 





iuser to kodify the value in R2 with the keys 

57 





10 through 7 and CLR. Return the value in R2. 
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58 ichanted or not> when user presses EXA, Uses 

S? «R2. Kb and RO. 
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1 


2 



m 



3 

4 



i CONSOLE 
i“ 

LINE UTILITY 

ENTRY POINTS: 

5 

4 140040 

7 

8 

9 140044 
10 

11 140070 

000147 

000104 

JNP 

FIXBP 

iPro»pt for a line froi the console. Return 
>the tine in BUFFER with R3 cleared. 

000147 

173344 

JMP 

SETBP 

(Transfer the back pointer (BP) to R3. 

000147 

173222 

JNP 

GETCH 

(Retrieve character indexed by R3 fro* BUFFER. 
(Returns character in ROi R2 incremented by 1. 
[Returns N set if character is a separatorr 
iC set if it is lower case. 

12 

13 

14 

15 

14 140074 

000147 

173304 

JNP 

GETLCH 

(Retrieve character indexed by <R3 - 1> fro* 

17 





[BUFFER. Returns sa»e as GETCH. 

18 

19 140100 

20 

21 

22 

23 140104 

000147 

173304 

JNP 

GETCHC 

[Retrieve character indexed by R3 from BUFFER 
/without folding lower case, Returns character 
iin R0( and R3 incre»ented by 1. 

000147 

173314 

JHP 

GETNXT 

[Retrieve next character which is not a 
(separator fro* BUFFER starting at location 
(indexed by R3. Returns character in R0 with 
(lower case foldech R3 indexes next character 
iin BUFFER. 

24 

25 

24 

27 

28 

29 140110 

000147 

173334 

JNP 

PURGE 

iEliiinate BUFFER contents below location 
(indexed by BP. 

30 

31 

32 140114 

000147 

174022 

JHP 

ECHO 

(Echo contents of BUFFER to the console 

33 





(Starting with location indexed by R3. Returns 

34 





iR3 indexing BUFFER location Just beyond last 

35 





iechoed character. 

34 

37 140120 

000147 

173400 

JNP 

CRLF 

(Send a carriage return and line feed to the 

38 





iconsole (and printer). 

39 

40 140124 

000147 

173400 

JHP 

CHROUT 

(Send a (pair Df) character(s) to the console 

41 





i(and printer). Character to be sent should 

42 





ibe in lower byte of R0. If upper bate of R0 

43 





iis non-zero( it will be sent as a second 

44 





(character. 

45 

44 140130 

000147 

173404 

JNP 

CHR01 

(Send a single character fro* the lower byte 

47 





iof RO to the console (and printer). Returns 

48 





(R0 with its byte swapped. 

49 

50 140134 

000147 

173414 

JHP 

CHR02 

(Send a single character fro* the lower byte 

51 





iof RO to the printer (aux. port) only. 

52 





(Returns R0 with its bytes swapped. 

53 

54 140140 

000147 

173442 

JNP 

ASCOUT 

(Output an ASCII character in the lower 7 bits 

55 





iof R0 as a visible (string of) characters) 

54 





ion the console. Control characters are output 

57 





las , '<letter>r with exceptions <SP>c(ESC>,'DEL> 
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58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


140144 000167 173604 JHP PRINTA .Output a strins of bytes to the console (and 

.printer). R1 points to start of strinSt uhich 
•aust end with a blank byte. Returns R1 
ipointins to byte just after blank byte, 

i+k 

i PARSING ANB OUTPUT UTILITY ENTRY POINTS; 


140150 

000167 

004346 

JHP 

GETEXP 

140154 

000167 

004332 

JNP 

GENEXP 

140160 

000167 

014560 

JHP 

TYPOCT 

140164 

000167 

014470 

JHP 

TYPDEC 

140170 

140174 

005037 

000167 

007630 

173040 

fixrp: clr 

JHP 

MRP 

GETLIN 
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1 


2 .SBTTL Keypad Monitor 

3 


4 

140200 

042737 

000077 

007706 

kmonit::bic 

*000077>@*FLAGS1fclear previous tode 

5 

140206 

042737 

000001 

007756 

BIC 

♦ l.MMBDR 

isake current address and watchpoint even 

6 

140214 

042737 

000001 

007754 

BIC 

tl'BUWATCH 

jin esse we case froi console tonitor 

7 

140222 

052737 

000010 

007706 

BIS 

♦F.REGiMELAGSl 

jset register select node 

8 

140230 

012704 

000007 


MOV 

♦007»R4 

! inde:: PC 

9 

140234 

010402 



MOV 

R4.R2 

fset up to display ■ PC * on upper LEDs 

10 

140236 

004767 

175650 


JSR 

PCtDSPNAM 

.display it 

11 

140242 

013705 

007750 


MOV 

M4PC.R5 

iset PC contents 

12 

140246 

010502 



MOV 

R5.R2 

iset up to display on lower LEDs 

13 

140250 

004767 

175570 


JSR 

PCjDSPLHH 

(display it 

14 

140254 

032737 

000200 

007706 

BIT 

♦F.SST.BtFLAGSl 

.were we single stepping? 

15 

140262 

001411 



BEQ 

KLOOP 

.no 

16 

140264 

042737 

000200 

007706 

BIC 

♦F.SSTiBIFLAGSi 

(clear condition 

17 

140272 

013702 

007754 


MOV 

MIUATCH.R2 

jis there a watchpoint? 

IB 

140276 

001403 



BEQ 

KLOOP 

ino 

19 

140300 

011202 



MOV 

8R2.R2 

.set watchpoint contents 

20 

140302 

004767 

175530 


JSR 

PCiBSPUNM 

(display watchpoint contents in upper display 

21 

22 

140306 

012737 

140330 

007676 

kloop:: mov 

♦KEYCMBrMKEYPIV! link cottand input routine to keypress vector 

23 

140314 

112737 

000007 

177444 

HOVB 

*007r@*PiP0RC 

(turn on LED display 

24 

140322 

106427 

000240 


MTPS 

*240 

jenable LED display interrupt 

25 

26 

140326 

000777 



i«: br 

n 

iwait for keypress, key code returns in RI 

27 

28 

140330 

005037 

007676 


keycmd:jclr 

MKEYPIV 

(disconnect keypress vector 

29 

140334 

012706 

007462 


MOV 

♦STACKiSP 

(pop saved registers and return vector 

30 

140340 

005037 

007726 


CLR 

MSPCLBF 

(turn off flashing error, if any 

31 

140344 

112737 

000010 

177444 

KEYCMltlMOVB 

*010»?*P*PORC 

(turn off LED display for faster execution 

32 

140352 

006301 



ASL 

R1 

.take a word index of Rl 

33 

34 

35 

140354 

000171 

140360 


JMP 

0DSPTBLIR1) 

.dispatch to appropriate routine 

140360 

141110 



DSPTBL11.WORD 

♦CLR 

fCCLR] 

36 

140362 

140430 



.WORD 

♦NUMER 

it 1 1 

37 

140364 

140430 



. WORD 

♦NUMER 

it 4 1 

38 

140366 

140430 



.WORD 

♦NUMER 

ft 7 ] 

39 

140370 

140430 



.WORD 

♦NUMER 

j[ 0 J 

40 

140372 

140430 



.WORD 

♦NUMER 

?[ 2 1 

41 

140374 

140430 



.WORD 

♦HOMER 

j[ 5 1 

42 

140376 

140430 



• WORD 

♦HOMER 

JC 8 1 

43 

140400 

141122 



.WORD 

♦EXAM 

(IEXA1 

44 

140402 

140430 



.WORD 

♦NUMER 

;r 31 

45 

140404 

140430 



. WORD 

♦NUMER 

it 6 ] 

46 

140406 

140430 



.WORD 

♦NUMER 

it 9 1 

47 

140410 

141232 



.WORD 

♦ADV 

.[ADV] 

48 

140412 

141372 



.WORD 

♦BACK 

fCBAC] 

49 

140414 

141610 



. WORD 

♦REG 

i[REG] 

50 

140416 

141550 



.WORD 

♦ADBRK 

j[ADD] 

51 

140420 

141706 



.WORD 

♦SST 

j[SST] 

52 

140422 

141714 



♦WORD 

♦GO 

i[G0 ] 

53 

140424 

141462 



.WORD 

♦BRKP 

»[BPT] 

54 

140426 

141650 



.WORD 

♦FUNC 

i[FNC] 
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1 

2 .SBTTL Key Gotland Routines 

3 


4 140430 

006201 



»numer::asr 

R1 

irestore key nusber 

5 140432 

004767 

176056 



JSR 

PCiKEYBCD 

(Set BCB value for Key code 

6 140434 

032737 

000040 

007706 


BIT 

IF,FUNC(I?4FLA6S11 is disit a function selection? 

7 140444 

001403 




BED 

44 

Ino 

8 140444 

020127 

000004 



CMP 

R1(*C04 

Iis disit hisher than 4? 

9 140452 

101315 




BHi 

KLOOP 

iaesj isnore disit 

10 140454 

032701 

000010 


4*: 

BIT 

*000010(111 

Iis it 8 or 9? 

11 144440 

001404 




BEQ 

14 

!noi a ledal octal diSit 

12 140442 

032737 

000005 

007706 


FIT 

♦F.BATA+F.ABBRiMFLAGSl ino 8 or 9 as data or address input 

13 140470 

001306 




BNE 

KLOOP 

risnore thet if pressed 

14 140472 

032737 

000002 

007706 

14! 

BIT 

IFiCHANiMFLAGSlihas a disit Key already been pressed? 

15 140500 

001001 




BNE 

34 

fyes( just scroll didits in 

14 140502 

005005 




CLR 

R5 

lelse initialise diSit accutulator 

17 140504 

052737 

000002 

007706 

341 

BIS 

♦F.CHANiMFLAGSliindicate that a diSit has been pressed 

18 140512 

032737 

000005 

007706 


BIT 

*F.DATAfF.ADBR(BtFLAGS1 Address and data entry scroll disits 

19 140520 

001004 




BNE 

24 


20 140522 

042737 

000002 

007706 


BIC 

4F.CHANiMFLAGSliothers have sinsle diSit entry 

21 140530 

006305 




ASL 

R5 

(prepare for fourth bit (tisht be 8 or 9) 

22 140532 

006305 



24! 

ASL 

R5 

iscroll disit into R5 (disit accuaulator) 

23 140534 

006305 




ASL 

R5 


24 140536 

006305 




ASL 

R5 


25 140540 

26 

060105 




ABB 

R1jR5 

(Now do execution associated with diSit input 

27 







(Clear Key Joins us here 

28 140542 

032737 

000005 

007706 

digexe: 

!BIT 

♦F.BATAFF.ADDRrWLAGSl iJust display new data or address 

29 140550 

001511 




BEG 

14 

Jfor otherS( do special displays instead 

30 140552 

010502 




MOV 

R5tR2 

(Set new value 

31 140554 

32 

33 140560 

004767 

175264 



JSR 

PCiBSPLNM 

land display on lower LEBs 

032737 

000001 

007706 


BIT 

BFiBATArBtFLAGSl 

[(for addressesr store in 4ABDR 

34 140566 

001007 




BNE 

24 


35 140570 

010537 

007756 



MOV 

R5r?*4ADDR 


36 140574 

042737 

000001 

007756 


BIC 

♦1.W4ABDR 

(•ake sure address is even 

37 140602 

38 

39 140606 

000167 

000362 



JHP 

KL00P1 

(take another Key 

032737 

000004 

007706 

24! 

BIT 

♦F.ABDRtPIFLAGSUbut data can So sany places-are we Poland RAM? 

40 140614 

001407 




BEQ 

34 

(TiD 

41 140616 

013700 

007756 



MOV 

844ADBRjR0 

iyes( Set a copy of current address 

42 140622 

004767 

001330 



JSR 

PCiKABRCH 

Jcheck that it is not in protected RAM 

43 140626 

010510 




MOV 

R5 r PRO 

(place data at current address 

44 140630 

45 

46 140634 

000167 

000334 



JMP 

KL00P1 

Stake another key 

032737 

000010 

007706 

34! 

BIT 

*F.REG(MFLAGS1 

ichanSinS reSisters or watchpoint contents? 

47 140642 

001420 




BEQ 

4$ 

Ino 

48 140644 

020427 

000010 



CMP 

R4j*CO0010 

idoes R4 index a reSister (0 thru 7 and PS)’ 

49 140650 

101006 




BHI 

SI 

Ino <R4 should be 000011) 

50 140652 

006304 




ASL 

R4 

I take it a word index 

51 140654 

010564 

007732 



MOV 

R5i4R0(R4) 

(and place data in user reSister 

52 140660 

006204 




ASR 

R4 

irestore R4 

53 140662 

54 

55 140666 

000167 

000302 



JMP 

KLOOP1 

itake another key 

013700 

007754 


54! 

MOV 

MIUATCHfRO 

iassuae R4 indexes watchpoint contents 

56 140672 

004747 

001260 



JSR 

PCfKAWICH 

fcheck that it is not in protected RAM 

57 140676 

010510 




MOV 

R5.8R0 

(deposit data into watchpoint location 
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58 

59 

60 

140700 

000167 

000264 



JNP 

KL00P1 

{take another key 

140704 

032737 

000020 

007706 

44! 

BIT 

#f.BRKS.BIFLAGSlichandind breakpoint or watchpoint address? 

61 

140712 

001526 




KQ 

K100P1 

ino? idnore (strande! that was a safety check) 

62 

140714 

020427 

000014 



CNF 

R4,*000014 

(R4 indexind a breakpoint? 

63 

140720 

103416 




BLD 

64 

ino. it's not 

64 

140722 

020427 

000017 



CMP 

R4» #000017 


65 

140726 

101013 




BHI 

64 

ino. it's not 

66 

140730 

006304 




ASL 

R4 

iaake an index for word pairs 

67 

140732 

006304 




ASL 

R4 


68 

140734 

010564 

007700 


1004! 

NOV 

R5fBRKFIL-060(R4) {place data in breakpoint address file 

69 

140740 

042764 

000001 

007700 


BIC 

*1i 8RKFIL-060(R4) iaake breakpoint address even 

70 

140746 

006204 




ASR 

R4 


71 

140750 

006204 




ASR 

R4 


72 

140752 

000167 

000212 



JNP 

KL00P1 

.take another key 

73 

140756 

010537 

007754 


64! 

NOV 

R5.M4UATCH 

iassuae R4 indexes watchpoint address 

74 

140762 

042737 

000001 

007754 


BIC 

♦ 1.H4WATCH 

iaake watchpoint address even 

75 

76 

77 

140770 

000167 

000174 



JNP 

KL00P1 

.take another key 

140774 

032737 

000040 

007706 

14! 

BIT 

IF.FUNC.MFLAGSliare we entering a function code? 

78 

141002 

001407 




BEQ 

74 

Ino. »ust be entering a register nu»ber 

79 

141004 

010100 




HOV 

Rl.RO 

idet new didit 

80 

141006 

012701 

000004 



NOV 

44.R1 

»index a lower display didit 

81 

141012 

004767 

174754 



JSR 

PC.DSPBIG 

.display new didit 

82 

83 

84 

141016 

000167 

000146 



JNP 

KLOOP1 

itake another key 

141022 

032737 

000010 

007706 

74! 

BIT 

♦F.REG.MFLAGS1 

‘.be sure we are selectind a redister 

85 

141030 

001457 




BEQ 

KL00P1 

lelse idnore key 

CO 

O' 

141032 

010504 




NOV 

R5.R4 

.save selected redister nudber 

87 

141034 

020427 

000011 



CHP 

R4.4000011 

.are watchpoint contents selected? 

88 

141040 

001414 




BEQ 

84 

iyes. do special display 

89 

141042 

010402 




NOV 

R4»R2 

.display register's naae on upper LEDs 

90 

141044 

004767 

175042 



JSR 

PC.DSPNAN 


91 

141050 

006304 




ASL 

R4 

iaake a word index 

92 

141052 

016405 

007732 



NOV 

4R0(R4).R5 

idet redister's contents 

93 

141056 

006204 




ASR 

R4 


94 

141060 

010502 



94! 

NOV 

R5.R2 

(display on lower LEDs 

95 

141062 

004767 

174756 



JSR 

PC.DSPLNN 


96 

97 

98 

141066 

000167 

000076 



JNP 

KL00P1 

itake another key 

141072 

013702 

007754 


84! 

NOV 

844UATCH.R2 

idet watchpoint address 

99 

141076 

004767 

174734 



JSR 

PC.DSPUNN 

ishow it on upper display 

100 

141102 

017705 

046646 



NOV 

84UATCH.R5 

idet watchpoint contents 

101 

141106 

000764 




BR 

94 


102 









103 









104 

141110 

005005 



4CLR!! 

CLR 

R5 

(clear didit accuaulator 

105 

141112 

042737 

000002 

007706 


BIC 

4F.CNAN.B*FLAGSliin case of sinSle didit »ode 

106 

141120 

000610 




BR 

DIGEXE 


107 









108 






•ENABL 

LSB 


109 









110 

141122 

032737 

000004 

007706 

4EXAN!! 

BIT 

IF•ADDR > 84FLAGS1iexaainind RAN? 

111 

141130 

001421 




BEQ 

14 

ino 

112 

141132 

013702 

007756 



NOV 

M4ADDR.R2 

idet current address 

113 

141136 

004767 

174674 



JSR 

PC.DSPUNN 

ishow it on upper display 

114 

141142 

017705 

046610 



NOV 

84ADDR.R5 

idet contents 


A-44 



T-il Evaluation Module Monitor MACRO V05.00 Sunday 13-Kar-83 04510 Pase 35-2 
Key Coaaand Routines 


115 

141144 

010502 



GNEXAM!!H0V 

R5rR2 

iseneral exaaine entry paint 

114 

141150 

004767 

174670 


JSR 

PCiDSPLNM 

(show it on lower display 

117 

141154 

052737 

000001 

007704 

BIS 

*F.DATA(MFLAGSliSo to data entry »ode 

118 

141162 

042737 

000002 

007706 

BIC 

♦F.CHANrMFLAGS1 vindicate no chande yet 

110 

141170 

000167 

177112 


KLOOPi: JMP 

KLOOP 

Hake another key 

120 








121 

141174 

032737 

000010 

007704 

It! BIT 

tF.REG.gtFLAGSl 

iexaaininS a resister? 

122 

141202 

001403 



B£Q 

2t 

ino 

123 

141204 

005704 



TST 

R4 

!R4 initialised to -1 by tREG 

124 

141204 

100357 



BPL 

SMEXAM 

(Contents put in R5 by BIGEXE 

125 

141210 

100767 



BMI 

KLOOPI 

!jSnore EXAHj aake user push a disit first 

124 








12? 

141212 

032737 

000040 

007704 

21! BIT 

*F,fUNC(?»FLAGSliexecuticn9 special function? 

12B 

141220 

001763 



BEQ 

KLOOPI 

(ignore all other occurrences of EXAM 

129 

141222 

005705 



TST 

R5 

iR5 initialized to -1 by tFUNC 

130 

141224 

100761 



BMI 

KLOOPI 

(ignore EXAM, take user push a disit first 

131 

141224 

000147 

000774 


JMP 

DOFUNC 

{execute special function 

132 





.DSABL 

LSB 


133 








134 








135 





■ENABL 

L5B 


134 

141232 

032737 

000004 

007706 

*ADV!5 BIT 

♦F.ABDRrBtFLA6S1isteppins ttirou* addresses? 

137 

141240 

001405 



BEQ 

It 

Ino 

138 

141242 

005237 

007756 


INC 

BttAOBR 

fSo to next word 

139 

141246 

005237 

007754 


INC 

BttADDR 


140 

141252 

000723 



BR 

tEXAM 


141 








142 

141254 

032737 

000010 

007706 

It! BIT 

♦F.REG»8#FLAGS1 

(stepping through registers? 

143 

141262 

001425 



BEG 

2t 

ino 

144 

141264 

005204 



INC 

R4 

(register index 

145 

141244 

020427 

000011 


CMP 

R41*000011 

(don't step past watchpoint contents 

144 

141272 

103411 



BLO 

3t 


147 

141274 

012704 

000011 


MOV 

*000011iR4 

iselect watchpoint contents 

148 

141300 

013702 

007754 


MOV 

B*tlMTCHrR2 

iset watchpoint address 

149 

141304 

004767 

174526 


JSR 

PCiDSPUNM 

ishow it on upper display 

150 

141310 

017705 

044440 


MOV 

8tNATCHrR5 

iset watchpoint contents 

151 

141314 

000714 



BR 

GNEXAM 


152 








153 

141316 

010402 



3t! MOV 

R4fR2 

(display resister's naae on upper LEDs 

154 

141320 

004767 

174544 


JSR 

PCiDSPHAM 


155 

141324 

006304 



ASL 

R4 

(take a word index 

154 

141326 

016405 

007732 


MOV 

tR0(R4)iR5 

iset reSister contents 

157 

141332 

004204 



ASR 

R4 


158 

141334 

000704 



BR 

GNEXAM 


159 








140 

141336 

032737 

000020 

007706 

2t! BIT 

♦F*BRKSfMFLA6Slislepein3 through breakpoints? 

141 

141344 

001711 



BEG 

KLOOPI 

ino, isnore advance 

162 

141346 

005204 



INC 

R4 

iincreaent breakpoint index 

143 

141350 

020427 

000012 


CMP 

R4.*000012 

ido special inereaent pattern 

164 

141354 

001003 



BNE 

4t 


145 

141354 

005724 



TST 

(R4H 


146 

141340 

020427 

000017 


4tt CMP 

R4»*000017 


167 

141364 

101440 



BIOS 

BRKP1 

iaake breakpoint display 

148 

141346 

005304 



DEC 

R4 


149 

141370 

000436 



BR 

BRKP1 


170 








171 
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172 141372 

032737 

000004 

007706 

♦back:: bit 

4F, ADDR»B4FLAGS1 i steps m3 throuSh addresses? 

173 141400 

001405 



BEQ 

61 

ino 

174 141402 

005337 

007756 


DEC 

844ADDR 

iso to next word 

175 141406 

005337 

007756 


DEC 

M4ADDR 


176 141412 

000643 



BR 

♦EXAM 


177 







178 141414 

032737 

000010 

007706 

6t; BIT 

♦F.RESrMFLAGSl 

isteppins throuSh reSisters? 

179 141422 

001404 



BEQ 

7t 

fno 

180 141424 

005304 



DEC 

R4 


181 141426 

100333 



BPL 

34 

iprevent underflow 

182 141430 

005004 



CLR 

R4 


183 141432 

000731 



BR 

34 

Icontinue in 4ADV 

184 







185 141434 

032737 

000020 

007706 

71! BIT 

4F.BRK$i84FLAGSlfSteppinS throuSh breakpoints? 

186 141442 

001652 



BEQ 

KLQ0P1 

Inoi isnore backup 

187 141444 

005304 



DEC 

R4 

Jdecreaent breakpoint index 

188 141446 

020427 

000014 


CMP 

R4>4000014 

ida special decreaent pattern 

189 141452 

103005 



BHIS 

BRKPl 

iaake breakpoint display 

190 141454 

012704 

000011 


MOO 

4000011.R4 

iindex watchpoint 

191 141460 

000402 



BR 

BRKPl 


192 




.DSABL 

LSB 


193 







194 







195 141462 

012704 

000014 


♦brkp:: moo 

4000014,R4 

iindex breakpoint 0 

196 141466 

010402 



BRKPl! MOV 

R4rR2 

ishow nate of breakpoint on upper display 

197 141470 

004767 

174416 


JSR 

PCrDSPNAH 


198 141474 

020427 

000014 


CMP 

R4r4000014 

!indexing watchpoint or a breakpoint? 

199 141500 

103420 



BLO 

14 

ithe watchpoint 

200 141502 

006304 



ASL 

R4 

iiake an index for word pairs 

201 141504 

006304 



ASL 

R4 


202 141506 

016405 

007700 


MOV 

BRKFIl-060(R4)»R5 rSet breakpoint address 

203 141512 

006204 



ASR 

R4 


204 141514 

006204 



ASR 

R4 


205 141516 

010502 



24! MOV 

R5rR2 

jdisplay it on lower LEDs 

206 141520 

004767 

174320 


JSR 

PCiDSPLNH 


207 141524 

042737 

000077 

007706 

BIC 

4000077re*FLAGSl»clear previous lode 

208 14)532 

052737 

000021 

007706 

BIS 

4F.BRKS+F.DATAi84FLAGS1 Uet breakpoint and data tode 

209 141540 

000441 



BR 

KLOOP2 


210 







211 141542 

013705 

007754 


IBS MOV 

mUATCH>R5 

iset watchpoint address 

212 141546 

000763 



BR 

24 


213 







214 







215 141550 

012702 

000012 


(ADDRKliMOV 

#012»R2 

fproipt with ' Addr ' on upper display 

216 141554 

004767 

174332 


JSR 

PCfDSPNAM 


217 141560 

013705 

007756 


MOV 

844ADDR-R5 

?set previous address 

218 141564 

010502 



MOV 

R5»R2 

ishow it on lower display 

219 141566 

004767 

174252 


JSR 

PCrDSPLNM 


220 141572 

042737 

000077 

007706 

BIC 

4000077>84FLAGSljclear previous aode 

221 141600 

052737 

000004 

007706 

BIS 

4F,ABDRjB4FLA6Sliset current address entry »ode 

222 141606 

000416 



BR 

KL00P2 


223 







224 







225 141610 

012702 

000013 


♦REG!* MOV 

4013>R2 

iproipt with ‘ rEG * on upper display 

226 141614 

004767 

174272 


JSR 

PCiDSPNAM 


227 141620 

012704 

177777 


MOV 

4-1»R4 

Unitialize reSister index to illegal value 

228 141624 

004767 

174506 


JSR 

PCiBLNKLO 

land blank lower display 
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229 141430 

042737 

000077 

007706 


BIC 

t000077.8IFl.AGSl Iclear previous eode 

230 141634 

052737 

000010 

007706 


BIS 

tF.REG.RIFLAGSl land set resister select node 

231 141444 

000167 

176436 


KL00P21 JHP 

KLOOP 


232 








233 








234 141450 

012702 

000020 


»func:: mov 

*020iR2 

|pro«pt with ’ func * on upper display 

235 141654 

004767 

174232 



JSfi 

PC,DSPm 


236 141660 

012705 

177777 



MOV 

♦-1.R5 

.'initialize accueulator to illegal value 

237 141664 

004767 

174446 



JSR 

PCtSLHKLO 

land blank lover diselav 

238 141670 

042737 

000077 

007706 


BIC 

*000077.84FLAGS1iclear previous eode 

239 141474 

052737 

000040 

007706 


BIS 

♦F.FUNC.8IFLAGS1 land set function select »ode 

240 141704 

000757 




SR 

KL00P2 


241 








242 








243 141706 

052737 

000200 

007706 

isst;: 

BIS 

*F,SST.R*FLAGS1 

.show we are single steppins 

244 








245 141714 

023727 

007746 

007400 

♦G0!« 

CMP 

mSPrtSCRPAD 

I is user 5P in his RAM? 

246 141722 

101004 



4G01S! 

BHI 

It 

Ino. show error tessase 

247 141724 

023727 

007746 

000004 


CMP 

8#4SP»*4 

land is there roo« for 2 pushes? 

248 141732 

103007 




BHIS 

24 

lyes. SP is acceptable 

249 141734 

042737 

000200 

007706 

it; 

BIC 

♦F.SST.8IFLAGS1 

lelse abort 

250 141742 

012700 

000004 



MOV 

♦4.R0 

ISP Error 

251 141746 

000167 

175376 



JMP 

FERKOR 

.So to fatal error handler to reenter konitor 

252 








253 141752 

013702 

007736 


2t; 

MOV 

8*4R2.R2 

Irestore user context. 

254 141754 

013703 

007740 



MOV 

M4R3.R3 


255 141762 

013704 

007742 



MOV 

844R4.R4 


254 141764 

013705 

007744 



MOV 

8*4R5.R5 


257 141772 

013737 

007700 

007676 


NOV 

MKEYPVSfttKEYPIV lend user keypress vector 

258 142000 

013706 

007746 



MOV 

M4SP.SP 

.we're on user's stack now 

259 142004 

013746 

007752 



MOV 

8*4PS.-<SP) 

Ipush FS. PC like fro» a trap 

240 142010 

042716 

000020 



BIC 

♦020.1SP) 

Iclear T-bit 

241 142014 

032737 

000200 

007706 


BIT 

♦F.SST.8IFLAGS1 

lare we sinsle stepping? 

262 142022 

001422 




BEG 

34 

ino 

243 142024 

052716 

000020 


4$: 

BIS 

*020.(SP) 

lyes, set T-bit 

264 142030 

012737 

137174 

000014 

94! 

MOV 

4BRKPT.8*014 

iaake sure BPT trap is still connected 

265 142034 

012737 

000340 

000016 


MOV 

*340.8*016 


246 142044 

013700 

007732 



MOV 

8*4R0.R0 

ifinish restoring context 

267 142050 

013701 

007734 



MOV 

8I4R1.R1 


268 142054 

013746 

007750 



MOV 

M4PC.-1SP) 

Ipush PC 

269 142060 

052737 

000100 

007706 


BIS 

♦F,USER.8*FLAGS1 

Ishow we are running user code 

270 142066 

000006 




RTT 


land simulate return froe trap 

271 








272 142070 




34! 




273 142070 

032737 

001000 

007706 

54! 

BIT 

*F,BRKG.8*FLAGSlfsinale stepping over a break point 

274 142076 

001352 




BME 

44 

lif aes then don't install 

275 








276 142100 

012700 

007760 



MOV 

4BRKFIL.R0 

Istart of break point table 

277 142104 

012701 

000004 



MOV 

44.R1 

.four entrys 

278 142110 

013020 



1004! 

MOV 

e(RO)+.(Ron 

Isuck up data froa break paint locations 

279 142112 

077102 




SOB 

R1.1004 

f 

2B0 142114 

012700 

007760 



MOV 

♦BRKFll.RO 

Istart of break point table 

281 142120 

012701 

000004 



MOV 

♦4.R1 

Isaae as last tile 

282 142124 

005710 



2004! 

TST 

(RO) 

Ifirst see if there was really one set 

283 142126 

001405 




BEG 

3004 

(branch if not 

284 142130 

012730 

000003 



MOV 

43.81R0H 

Iset break point 

285 142134 

005720 




TST 

(R0)+ 

Iskie to next 
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286 142136 

077106 



400*: 

SOB 

R1.200$ 

ifour entrys 

287 142140 

000402 




8R 

500* 


2B8 142142 

032020 



300*: 

BIT 

(ROIMROH 

rskip this entry 

28? 142144 

000774 




BR 

400* 

>3o back for next 

290 142146 

052737 

000400 

007706 

sow: 

BIS 

tF.BRKAiWPLAGSi;indicate breakpoints installed 

291 142154 

000725 




BR 

9t 

iand 3a 

292 








293 








294 








295 142156 

032737 

040000 

007706 

KAORCHi 

BIT 

*FiPRUTjBtFLAGSlikeypad scratch protection on? 

296 142164 

001017 




BNE 

it 

inot deposit anywhere 

297 142166 

020027 

020000 



CNP 

ROi#20000 

iis address above upper instance of scratchpad? 

298 142172 

103014 




8HIS 

it 

lyesr definitely doesn't address protected RAM 

299 142174 

020027 

007400 



CNP 

ROitSCRPAD 

iis it below lower instance of scratchpad? 

300 142200 

103411 




BLO 

It 

!yes 

301 142202 

020027 

oicooo 



CHP 

ROrtlOOOO 

iis it within lower instance of scratchpad? 

302 142206 

103403 




BLO 

2t 

iyesi address is illedal 

303 142210 

020027 

017400 



CMP 

RO»*SCRPAD+10000iis it between instances of scratchpad RAM? 

304 142214 

103403 




BLO 

It 

ryest not within then so address is OK 

305 142216 

005000 



2*: 

CLR 

RO 

iindex user RAM error tessade 

306 142220 

000167 

175124 



JMP 

FERROR 

iso to fatal error handler to reenter aonitor 

307 








308 142224 

000207 



it: 

RTS 

PC 

iaddress is acceptable 

309 
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1 

2 .SBTTL Special Keypad Monitor Functions 

3 


u 

4 142226 

006305 


DOFUKCtlASL 

RS 

!R5 was 0, 1, 2f 3, or 4 

5 142230 

000175 

142234 

JMP 

PFNCTBKR5) 

(dispatch to selected function 

6 

7 142234 

142246 


FNCTBL!!,WORD 

CANCEL 

iO »eans cancel breakpoints 

3 142236 

142270 


.WORD 

BOOLED 

i1 leans turn on LEDs and do at user PC 

9 142240 

142572 


.WORD 

CNONt 

12 leans cold start console tonitor 

10 142242 

142320 


.WORD 

SPEEDS 

13 leans select baud rates and console type 

11 142244 

12 

13 142246 

142562 


.WORD 

NPROT 

14 wans disable keypad lonitor scratch protec 

012700 

000020 

CANCEL!tMOO 

4020.RO 

18 words in breakpoint file 

14 142252 

105060 

007757 

14! CLRB 

BRKFlL-l(RO) 

ielear address/contents pairs 

15 142256 

077003 


SOD 

R0,14 


16 142260 

005037 

007754 

CLR 

M4WATCH 

icancel watchpoint also 

17 142264 

18 

1? 142270 

000167 

175710 

FNCBON! JMP 

KNONIT 

iso to register select lode 

112737 

000007 177444 

go4leb::nbvb 

4007.B4P4PORC 

Iturn on LED displays 

20 142276 

21 

22 142302 

000167 

177412 

JNP 

4G0 

rand so 

000454 


SPDTBL!:.WORD 

300. 


23 142304 

001130 


.WORD 

600, 


24 142306 

002260 


.WORD 

1200. 


25 142310 

004540 


.WORD 

2400. 


26 142312 

011300 


.WORD 

4800. 


27 142314 

022600 


.WORD 

9600. 


28 142316 

29 

30 142320 

045400 


.WORD 

19200, 


012702 

000021 

SPEEDS!!MOV 

4021,R2 

(index ’ConSol’ 

31 142324 

004767 

173562 

JSR 

PCiDSPNAN 

(show proipt on upper display 

32 142330 

113705 

007710 

HOOD 

MC0RFLG,R5 

(Set baud rate bits 

33 142334 

042705 

177707 

BIC 

1177707,R5 

(•ask out other flags 

34 142340 

006205 


54! ASR 

R5 

Jshift to word index position 

35 142342 

006205 


ASR 

R5 


36 142344 

016501 

142302 

NOV 

SPDTBL(R5),R1 

(Set corresponding baud rate 

37 142350 

012702 

00001G 

NOV 

4010,R2 

(index lower display 

3B 142354 

004767 

174006 

JSR 

PC.DSPDEC 

(display deciial nuiber 

39 142360 

004767 

174052 

34! JSR 

PC.KErGET 

(wait for a key 

40 142364 

020127 

000010 

CMP 

RW 4010 

(was it ’Enter 1 ? 

41 142370 

001436 


BEO 

14 

(yes, go to aux port speed 

42 142372 

020127 

000016 

CNP 

Rl,4016 

(was is a function key? 

43 142376 

103067 


BHIS 

104 

(yes, exit 

44 142400 

020127 

000014 

CNP 

R1.4014 

(was it advance? 

45 142404 

001410 


BEQ 

24 

(yes, lodify baud rate 

46 142406 

020127 

000015 

CNP 

Rif4015 

(was it backup? 

47 142412 

48 

49 142414 

001362 


BNE 

34 

(no, wait for another key 

005305 


DEC 

R5 

(decrease baud rate 

50 142416 

005305 


DEC 

R5 


51 142420 

100007 


BPL 

44 

(show new rate 

52 142422 

005005 


CLR 

R5 

(prevent underflow 

53 142424 

54 

55 142426 

000405 


BR 

44 


005725 


24! TST 

(R5)t 

iincrease baud rate 

56 142430 

020527 

000016 

CNP 

R5.4016 

(overflow? 

57 142434 

103401 


BLO 

44 

(no 
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58 142436 

005745 



1ST 

-(RS) 


59 142440 

006305 


4$: 

ASL 

R5 

.store index in baud rate bits 

60 142442 

006305 



ASL 

R5 


61 142444 

006305 



ASL 

85 


62 142446 

106137 

007710 


ROLB 

MCONFLG 

.preserve hi* order bit (F.A64X) 

63 142452 

110537 

007710 


MOVB 

R5. MCONFLG 


64 142456 

106037 

007710 


RORB 

MCONFLG 


45 142462 

006205 



ASR 

K5 


66 142464 

67 

68 142466 

000725 



BR 

54 


012702 

000022 

ltt 

MOV 

4022»R2 

(index ‘A.Port' 

69 142472 

004767 

173414 


JSR 

PCrDSPMAM 

(show proept 

70 142476 

016501 

142302 

8*1 

MOV 

SPDTBL(R5).R1 

(Set console baud rate 

71 142502 

105737 

007710 


TSTB 

MCONFLG 

(is 64 X set for aux port? 

72 142506 

100002 



8PL 

94 

(no. sane speeds 

73 142510 

006201 



ASR 

R1 

(else console rate / 4 

74 142512 

006201 



ASR 

R1 


75 142514 

012702 

000010 

94*. 

MOV 

M10.R2 

(index lower display 

76 142520 

004767 

173642 


JSR 

PC.DSPDEC 

(display baud rate 

77 142524 

004767 

173706 


JSR 

PC.KEYGET 

(wait for a Key 

78 142530 

020127 

000010 


CMP 

Rl.tOlO 

(is it 'Enter*? 

79 142534 

001653 



BEQ 

FNCBON 

(yes. finished 

80 142536 

020127 

000016 


CMP 

R1.4016 

(was it a function button? 

81 142542 

103005 



8HIS 

104 

(yes. exit 

82 142544 

012700 

000200 


MOV 

4F.A64X.R0 

(no. tossle aux port baud rate 

B3 142550 

074037 

007710 


XOR 

RO.MCONFLG 

(CONFLG is an even byte 

84 142554 

85 

86 142556 
37 

88 142562 

000750 



BR 

84 

(wait for enter key 

000167 

175562 

1041 

JNP 

KEYCM1 

(execute function key 

052737 

040000 007706 

nprot:: 

BIS 

♦F.PROT.MFLAGSl.turn off protection 

89 142570 

000635 



BR 

FNCDQN 

(so to resister select node 
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Special 

Keypad 

Nonitor Functions 





1 

2 






.SBTTL 

Console Monitor 


3 









4 





f 

REGISTER USAGE! 


5 





} 


R5 last expression value 

6 





5 


R4 current ten value and scratch current address 

7 





f 


R3 runnina pointer for input buffer 

8 





5 


R2 pointer and aeneral passins to routines 

9 





* 


R1 coiputational scratch 

10 

11 





i 

r 


RO passina to botto* level routines arid scratch 

12 

13 





i 

t 

Cold entry point! 


14 





j — 




15 

16 

142572 

012737 

006500 

007746 

cnoni:: nov 

*$UR,M*SP 

!initialize user SP for console nonitor 

17 

142600 

012737 

040100 

007330 


NOV 

*4&0*ltXHlW,MTNFNOD (set default »odes 

18 

142606 

012737 

000004 

007325 


NOV 

*F.NULL, MlASLIMi initialize last line flaas 

1? 

142614 

005037 

007630 



CLR 

MBP 

initialize console buffer pointers 

20 

142620 

105037 

007672 



CLRB 

8*HFP 

idear host buffer pointer also 

21 

142624 

142737 

000007 

007710 


BICB 

*007,8*C0NFLG 

(clear console line flaas (but not speed) 

22 

142632 

105037 

007673 



CLRB 

MHSTFLG 

(clear host flaas 

23 

142636 

012767 

133000 

035214 


NOV 

♦LIHEINrCONIN 

(hook up console input service routine 

24 

142644 

113700 

007710 



NOVB 

8*C0NFLG,R0 

(aet current baud rate 

25 

142650 

052700 

000002 



BIS 

*000002,RO 

(enable proa, baud rate, disable xnit interrupt 

2b 

142654 

010037 

177564 



NOV 

ROtMMXCSR 

(transfer control word to console port 

27 

142660 

004767 

172304 



JSR 

PCiSETAUX 

(set aux port baud rate and disable 

28 

142664 

052737 

002000 

007706 


FIS ‘ 

#F.KEYPr@#FLAGSlfdisable keypad eonitor 

29 

142672 

106427 

000000 



NTPS 

♦ooo 

(enable interrupts 

30 

142676 

012737 

000100 

177560 


NOV 

*000100,0*C$RCSR(enable console receiver interrupt 

31 

142704 

004767 

170614 



JSR 

PCiCRLF 

(start a new line 

32 

142710 

004767 

170610 



JSR 

PCrCRLF 


33 

142714 

012702 

143052 



NOV 

IGRET.R2 

(point to areetina nessaae 

34 

142720 

004767 

171042 



JSR 

PC,PRINT 

itype nesssde 

35 





iH 




36 






Wan entry point! 


37 

38 





f — 




3? 

142724 

012767 

133000 

035126 

CHONITiiNOV 

ILINEINtCONIN 

(hook up console input service routine 

40 

142732 

106427 

000000 



NTPS 

*000 

(enable interrupts 

41 

142736 

012737 

000100 

177560 


NOV 

♦QOOl00,P*C*RCSRienable console receiver interrupt 

42 

142744 

032737 

004000 

007706 


BIT 

♦F.HOSTrMFLAGS 

(is host «ode enabled? 

43 

142752 

001412 




BED 

1* 

(no, clear host flaas to tereinate functions 

44 

142754 

012737 

134540 

000120 


NOV 

♦KOSTIN,MAUXIN 

(hook up host input service interrupt 

45 

142762 

112737 

000046 

007711 


NOVB 

I046»8*AUXFLG 

(save a copy of new AICREG value 

46 

142770 

112737 

000046 

177452 


NOVB 

*046,8*A«CREG 

(reenable aux port receiver interrupt 

47 

48 
4? 

142776 

000402 




BR 

2* 


143000 

105037 

007673 


111 

CLRB 

8»HSTFLG 

(stop host activity 

50 

143004 

032737 

000200 

007706 

241 

BIT 

*F.SST,@*FLAGSi 

(were we single stepping 7 

51 

143012 

001501 




BED 

CH0N3 

(no, scrap line 

52 

143014 

042737 

000200 

007706 


BIC 

#FiSST,8*FLAGSl 

(clear flea fro* (GDI routine 

53 

143022 

004767 

006702 



JSR 

PC,TTPREG 

(yes, display redisters 

54 

143026 

013704 

007750 



NOV 

M4PCiR4 

(point to next location 

55 

143032 

004767 

012212 



JSR 

PC,TYPADR 

itype address 

56 

143036 

004767 

012126 



JSR 

PC,TYPL0I 

(disasseeble next instruction 

57 

143042 

005737 

007466 



TST 

MREPEAT 

(were we repeatind? 
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58 143046 001463 

59 143050 000476 


BEQ CN0N3 !no 

Bfl CM0N4 (sesi keep couand line 
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Console 

Monitor 







1 

2 

143052 

076725 

000207 

055207 

GRET! .RA050 

/TEH CONSOLE MONITOR VI.0 / 


143060 

045710 

051646 

035557 





143066 

070226 

143076 

oooooo 




3 

143074 

000000 



.WORD 

0 


4 

143076 

001640 

004540 


what: iRadso 

/ WHAT / 


5 

143102 

000000 



.WORD 

0 


6 

143104 

007716 

023132 

001156 

OVERFL! .RAD50 

/BUFFER OVERFLOW/ 


143112 

021026 

046557 





7 

0 

9 

143116 

000000 



.WORD 

0 


143120 

004767 

170400 


PRNERRJ:JSR 

PCrCRLF 

itype <CR> <LF> 

10 

143124 

012700 

056007 


NOV 

♦40041341007fRO 

!type <BELL> k 

11 

143130 

004767 

170374 


JSR 

PCfCHROUT 


12 

143134 

004767 

170276 


JSR 

PC.GETBP 

iset running pointer to back pointer 

13 

143140 

004767 

170776 


JSR 

PCtECHO 

iecho buffer to console to indicate error 

14 

143144 

012700 

000134 


MOV 

♦134fRO 

Itype \ <CR> 

15 

143150 

004767 

170354 


JSR 

PCfCHROUT 


13 

143154 

004767 

170344 


JSR 

PCfCRLF 


17 

18 
19 

143160 

000167 

170602 


JMP 

PRINT 

.print error aessase 





f 4-4 



20 





i Coaaand error entry point! 


21 





!— 



22 








23 

143164 

012706 

007462 


CNON2!! NOV 

♦STACKfSP 

!we caae here froa unspecified depth 

24 

143170 

012702 

143076 


NOV 

♦WHAT.R2 

(point to error aessaSe 

25 

143174 

004767 

177720 


JSR 

PCfPRNERR 

.print erroneous coaaand line and error aessaSe 

23 

143200 

012700 

000077 


NOV 

♦077.RO 

itype ? <CR> 

27 

143204 

004767 

170320 


JSR 

PCfCHROUT 


28 

29 

30 

143210 

000402 



8R 

CH0N3 






»4+ 



31 





} General error entry! scrap 

rest of coaaand line, terainate host input! 

32 





r— 



33 








34 

143212 

004767 

177702 


error:: jsr 

PC.PRNERR 

.print error aessade 

35 

143216 

142737 

000200 

007673 

CNON3!* BICB 

♦F.LOADiPtHSTFLG.stop loadinS froa host 

36 

143224 

012706 

007462 


CM0N31! NOV 

♦STACK,SP 

iwe don't know at which level error occurred 

37 

143230 

005037 

007630 


CLR 

MBP 

♦clear both back pointer and forward pointer 

38 

143234 

005037 

007466 


CLR 

^♦REPEAT 

idon't keep repealing bad coaaand line 

39 

143240 

152737 

000004 

007324 

BISB 

♦F.NULL»?#LINFLG*act like line was not e»pty 

40 





!H 



41 





! Fresh coaaand line and repeat entry point! 

42 





r— 



43 








44 

143246 

000337 

007324 


CN0N4!! SWAB 

RtlINFLG 

(save old line parsing flags 

45 

143252 

105037 

007324 


ORB 

MLINFLG 

!reset line parsing flags far new line 

46 

143256 

004767 

170166 


JSR 

PC.PURGE 

Fpurde bottoa of buffer. clear running pointer 

47 

143262 

005737 

007466 


TST 

(•♦REPEAT 

!repeat line or proaet for a new one? 

48 

143266 

001403 



BEQ 

It 

FProaet for a new one 

49 

143270 

005337 

007466 


DEC 

6WEPEAT 

.count repetitions 

50 

51 

52 

143274 

000543 



BR 

CM0N5 

.and re-execute line 

143276 

113737 

007331 

007330 

It! MOVE 

8tPERMOD.8tTMPMOD ‘.restore peraanent aodes 

53 

143304 

004767 

170214 


JSR 

PCfCRLF 

.start a new line 

54 

143310 

012701 

076725 


HOV 

#<24*50405>*50415.R1 IRAB50 triplet 'TEN* 


A-53 






T-U Evaluation Module Monitor MACRO VOS.00 Sunday 13-Har-83 04110 PaSe 38-1 
Console Monitor 


55 143314 

004767 

170464 



JSR 

PCrPRIMTl 

.type a single RAD50 triplet 

56 143320 

012700 

020076 



MOV 

♦40040401076.RO 

Usee > <SFACE> 

57 143324 

004767 

170200 



JSR 

PC.CHROUT 


58 143330 

123703 

007631 


24! 

CKPB 

8IFP.R3 

.see if a character has been typed 

59 143334 

001415 




BED 

34 

.no. So check host buffer 

60 143336 

004767 

170600 


84! 

JSR 

PC.ECHO 

lecho character to console 

61 143342 

126327 

007467 

000015 


CHPB 

BUE£R-1(R3).#015 4is last character a <CR>? 

62 143350 

001367 




BNE 

24 

.no. wait for one 

63 143352 

105037 

007324 



CLRB 

MLINFLG 

.reset line fla3s fro* ECHO 

64 143356 

005003 




CLR 

R3 

iset running pointer to beginning of line 

65 143360 

142737 

000001 

007673 


BiCB 

♦F.ETTB.94HSTFLG)clear host line byte bucket CO) flag 

66 143366 

LI 

000506 




BR 

CM0N5 

!execute line 

0 / 

68 143370 

105737 

007672 


34! 

TSTB 

MHFP 

.see if ue have a character fro* the host 

69 143374 

001755 




BED 

24 

.no. 30 back and check console 

70 143376 

105737 

007673 



TSTB 

RIHSTFLG 

fare ue loading Dr Just listening 7 

71 143402 

100444 




8NI 

44 

.'loading 

72 143404 

132737 

000001 

007673 


BITB 

♦E.BYTB.OlHSTFLG.are ue ignoring host eessades? 

73 143412 

001403 




BED 

94 

ino 

74 143414 

004767 

171324 



JSR 

PC.HGETCH 

.yes. get character fro* host 

75 143420 

000743 




BR 

24 

land throw it away 

/o 

77 143422 

004767 

170076 


94! 

JSR 

PC.CRLF 

.start a new line to show aessade fro* host 

78 143426 

012701 

032153 



MOV 

♦<10450117>»50+23.R1 .RAB50 triplet *HOS* 

79 143432 

004767 

170346 



JSR 

PC.PRIHT1 

(type a single RAD50 triplet 

80 143436 

012700 

037124 



MOV 

♦40040761124.R0 

i*T>" 

81 143442 

004767 

170062 



JSR 

PC.CHROUT 

»co*plete the header 

82 143446 

105737 

007672 


54! 

TSTB 

MHFP 

.see if we have a character 

83 143452 

001411 




BED 

74 

.no. check console for keypress 

84 143454 

004767 

171264 



JSR 

PC.HGETCH 

.get character fro* host buffer 

85 143460 

132737 

000001 

007673 


81TB 

♦F.BYTE.BMSTFLGiare we ignoring host eessades? 

86 143466 

001003 




EWE 

74 

iyes. throw character away 

87 143470 

OIOIOO 




MOV 

Rl.RO 


88 143472 

004767 

170032 



JSR 

PC.CHROUT 

.else echo it to console 

89 143476 

123703 

007631 


74! 

CMPB 

8WP.R3 

.see if console typed a character 

90 143502 

001761 




BED 

54 

.if not. continue host »essa3e 

91 143504 

005003 




CLR 

R3 

.prepare to re-echo console input 

92 143506 

105037 

007324 



CLRB 

MLINFLG 


93 143512 
01 

000671 




BR 

14 

fredisplay pro»pt and echo buffer again 

7t 

95 143514 

004767 

171224 


44! 

JSR 

PC.HGETCH 

.get character fro* host buffer 

96 143520 

106427 

000340 



MTPS 

♦340 

.block console interrupt for a while 

97 143524 

113702 

007631 



N0V8 

MFP.R2 

iset console buffer input pointer 

98 143530 

042702 

177400 



SIC 

♦177400.R2 

(prevent sign extend 

99 143534 

001003 




BHE 

104 

(we aren't at beginning of line 

100 143536 

120127 

000012 



CMPB 

R1.4012 

.throw away line feeds at beginning of line 

101 143542 

001407 




BED 

114 


102 143544 

120227 

000140 


104! 

CMPB 

R2.4140 

iis buffer full? 

103 143550 

103007 




BHIS 

64 

iyes. abort load process 

104 143552 

110162 

007470 



MOVB 

Rl.BUFFER!R2) 

.transfer character to console input buffer 

105 143556 

105237 

007631 



I MCE 

MFP 

.advance buffer input pointer 

106 143562 

106427 

oooooo 


114! 

MTPS 

♦000 

.restore interrupts 

107 143566 

000660 




BR 

24 

.echo buffer to console 

108 








109 143570 

106427 

000000 


64! 

MTPS 

♦000 

.restore interrupts 

110 143574 

012702 

143104 



MOV 

♦0VERFL.R2 

.point to error »essage 

111 143600 

000167 

177406 



JMP 

ERROR 

.and print it 
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Monitor 







112 








113 





14+ 



114 





j Next coaaand entry point! 


115 





i — 



116 








117 

143604 

004767 

167616 


chons:: jsr 

PC.GETNXT 

(get first aeaningful character 

118 

143610 

000402 



8R 

CNQN6 


11? 








120 

143612 

004767 

167570 


CONTINl'.JSR 

PCrSETLCH 

;recover last acauired character 

121 








122 

143616 

005737 

007466 


CHON6:: TST 

BtREPEAT 

tare we repeating? 

123 

143622 

001004 



BHE 

It 

iyes; so keep last coaaand 

124 

143624 

110337 

007630 


MQVB 

R3(MBP 

!else throw it away 

125 

143630 

105337 

007630 


DECS 

MBP 


124 

143634 

000337 

007326 


It! SUAB 

BtCURCOH 

fsave old coaaand flats 

127 

143640 

105037 

007326 


CLRB 

MCURCOM 

land initialize thea for next coaaand 

128 

143644 

000402 



BR 

CHON7 


O- 

CM 





;++ 



130 





f Parse top level! 


131 





i— 



132 








133 





.ENABl 

LSB 


134 

143646 

004767 

167554 


comlup: jsr 

PC.CETNXT 

(get next aeaningful character 

135 

143652 

120027 

000015 


CM0N7! CMPB 

R0.4015 

pis it <CR>? 

136 

143656 

001544 



BED 

DOCR 

iyesr go to \CR> handler 

137 








13B 

143660 

152737 

000004 

007324 

it: BISB 

tE,HULLiPtLINFLGIshow that line is not e»pts 

13? 

143666 

132737 

000020 

007324 

BITB 

tF.COMMiMLINFLS;are we in a coaaent? 

140 

143674 

001364 



BHE 

COMLUP 

lyes* keep looking for <CR> 

141 

143676 

120027 

000054 


CMPB 

R0.t054 

fis it coaaa? 

142 

143702 

001761 



BED 

COMLUP 

iignore coaaas at top level 

143 

143704 

120027 

000033 


CMPB 

R0rl033 

ris it <ESC>? 

144 

143710 

001005 



BNE 

2t 

}no 

145 

143712 

000402 



BR 

ERR0R2 


146 








147 

143714 

000167 

000354 


4t! JMP 

DDEXPR 

1go to general expression handler 

148 

143720 

000167 

177240 


ERROR25 JMP 

CMON2 


14? 








150 

143724 

120027 

000042 


2t: CHPB 

R0f*O42 

pis character controli spacet or '!'? 

151 

143730 

103773 



BLO 

ERR0R2 

ryes* invalid coaaand 

152 

143732 

120027 

000137 


CMPB 

ROitl37 

Jis it above underscore? 

153 

143736 

101370 



BHI 

ERROR2 

>yesr invalid coaaand 

154 

143740 

001006 



BNE 

5t 

>not an underscore 

155 

143742 

010537 

007336 


MOV 

R5»HSAVEXP 

iexecute underscore 

156 

143746 

152737 

000010 

007324 

BISB 

IF.SAVX)0tLINPLG}sho« pending underscore 

157 

143754 

000713 



BR 

CM0N5 

(get next coaaand 

158 








15? 

143756 

120027 

000136 


st: CMPB 

R0>tl36 

fis it caret? 

160 

143762 

001010 



BNE 

6t 

Jno 

161 

143764 

005337 

007756 


DEC 

BttADDR 

iexecute caret 

162 

143770 

105737 

007330 


TSTB 

84TMPM0D 

!are we in byte aode? 

163 

143774 

100703 



BM1 

CMDN5 

}yes( back up a byte 

164 

143776 

005337 

007756 


DEC 

M4ADDR 

ielse back up a whole word 

165 

144002 

000700 



BR 

CM0N5 

(get next coaaand 

166 








167 

144004 

120027 

000134 


6t: CMPB 

R0.4134 

(is it reverse slant? 

168 

144010 

001017 



BNE 

7t 

ino 
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149 

144012 

104437 

007327 



MIPS 

MLASCON 

(did the last expression have undefined syibols 

170 

144014 

001010 




BNE 

84 

(yes* refuse setting of the current address 

171 

144020 

010537 

007754 



NOV 

R5*M4ADDR 

(execute reverse slant 

172 

144024 

010504 




NOV 

R5.R4 

(set new address 

173 

144024 

004747 

011214 



JSR 

PCrTTPADR 

(type R4 as nuiber or label 

174 

144032 

004747 

011042 



JSR 

PC* TVPLQC 

(type location addressed by R4 

175 

144034 

000442 




BR 

CNONS 

(get next coiiand 

174 









177 

144040 

012702 

151372 


84! 

NOV 

♦UNDEFX.R2 

(errori undefined expression 

178 

144044 

000147 

177142 



JNP 

ERROR 


179 









180 

144050 

120027 

000133 


?♦! 

CNPB 

R0rtl33 

(is it left bracket’ 

181 

144054 

101321 




8HI 

ERR0R2 

(no* invalid coiiand 

182 

144054 

120027 

000100 



CNPB 

ROrllOO 

(is it alphabetic? 

183 

144042 

101314 




BHI 

4* 

(yes* beginning of expression or instruction 

184 

144044 

001715 




BEQ 

ERR0R2 

(no* at sidn is invalid coaaand 

185 








(we've narrowed RQ to the 042 to 077 range 

184 

144044 

114001 

155774 



HOVE 

PARAHS-040(R0(*R1 (get parsing code 

187 

144072 

042701 

177770 



BIC 

♦177770*R1 

flask out other inforaation 

188 

144074 

004301 




ASL 

R1 

(lake it a word index 

189 

144100 

000171 

144104 



JNP 

BPARDSP(Rl) 

(and dispatch accordingly 

190 






.DSABL 

LSB 


191 









192 

144104 

143144 



PARDSP! 

.WORD 

CN0N2 

(0 leans invalid coaaand 

193 

144104 

144274 




.WORD 

DOEXPR 

*1 leans set expression or instruction 

194 

144110 

151426 




.WORD 

DOLABL 

(2 leans define label 

195 

144112 

144124 




•WORD 

DOCOHN 

(3 leans start conent 

194 

144114 

151144 




■ WORD 

DOSYNB 

(4 oeans define ssibol 

197 

144114 

144134 




.WORD 

DONVAL 

<5 leans type nuierically 

198 

144120 

143164 




.WORD 

CN0N2 

(6 leans valid as operator within expressions 

199 

144122 

144274 




.WORD 

DOEXPR 

(7 leans both 1 and 4 are true 

200 









201 









202 

144124 

152737 

000020 

007324 

DOCOKH! 

BISS 

W.COHNtBILINFLGiindicate we're in a coiaent 

203 

144132 

000424 




BR 

CN0N5 

(and continue 

204 









205 









204 

144134 

004767 

167364 


DONVAL! 

JSR 

PC.CRLF 

(type last expression nuierically 

207 

144140 

014744 

043164 



NOV 

TNPNODf-CSP) 

(save flags 

208 

144144 

042747 

000200 

043156 


BIC 

♦F.B’fTNtTNPNOD 

(•ake word aode 

209 

144152 

010501 




NOV 

RStRl 


210 

144154 

004767 

010716 



JSR 

PCrTYPNNl 


211 

144140 

012447 

043144 



NOV 

(SPHdNPNOD 

(restore flaSs 

212 

144144 

000167 

177414 



JNP 

CNONS 


213 









214 









215 

144170 

105737 

007673 


dock:: 

TSTB 

MHSTFLG 

(are we loading fros host’ 

214 

144174 

100424 




BNI 

34 

(yes* suppress <CR> couand feature 

217 

144174 

104437 

007324 



HIPS 

MLINFLG 

(Set coaaand line flags 

218 

144202 

001423 




BEQ 

34 

(line is not eipty* so do nothing 

219 

144204 

104437 

007325 



NTPS 

MIASLIH 


220 

144210 

103427 




DCS 

54 

(last line caused single step* so step again 

221 

144212 

013704 

007756 



NOV 

B44ADDR*R4 

(get current address 

222 

144214 

132737 

000004 

007325 


8ITB 

IF,NULL»8ILASLIN?did last line duap locations’ 

223 

144224 

001004 




BNE 

64 

(no* so don't advance 

224 

144224 

013704 

007334 



HOV 

MADVADR*R4 

iadvance past last duip 

225 

144232 

010437 

007754 



NOV 

R4.BI4ADDR 
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224 144234 

014705 

033535 

4»: 

MOV 

-1»R5 


227 144242 

004747 

010734 


JSR 

PCtTYPLIN 

itype a line of locations 

228 144244 

010437 

007334 


MOV 

R4i?*ADVADR 

?save next address for subseauent du«P 

229 







230 144252 

005737 

007444 

34! 

TST 

8IREPEAT 

lare we repeating? 

231 144254 

001002 



BNE 

44 

laesf so keep conand line 

232 144240 

110337 

007430 


MOVE 

R3p8*8P 

Jnor discard executed cowands 

233 144244 

000147 

174754 

44! 

JMP 

CM0N4 


234 







235 144270 

000147 

003122 

54! 

JMP 

STEP 

iexecute single step 
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1 

2 

3 

4 

5 

6 

7 

8 
9 


10 


11 


12 


13 


14 144274 

004767 

15 144300 

120027 

16 144304 

001453 

17 144306 

120027 

18 144312 

001450 

19 144314 

106437 

20 144320 

102010 

21 144322 

106437 

22 144326 

t00063 

23 144330 

102003 

24 144332 

005737 

25 144336 

100031 

26 


27 144340 

010405 

28 144342 

120027 

29 144346 

001432 

30 144350 

120027 

31 144354 

001427 

32 144356 

120027 

33 144362 

001424 

34 144364 

120027 

35 144370 

001421 

36 144372 

106437 

37 144376 

100420 

38 144400 

004767 

39 144404 

105737 

40 144410 

100406 

41 144412 

010514 

42 144414 

005237 

43 144420 

000403 

44 


45 144422 

000167 

46 


47 144426 

110514 

48 144430 

005237 

49 144434 

000167 

50 


51 


52 144440 

142737 

S3 144446 

013704 

54 144452 

004767 

55 144456 

001366 

56 144460 

132737 

57 144466 

001771 


.S8TTL Parsind Routines 

DOEXPR parses an expression* instruction* directive* Dr verb* and handles 
it according*. If appropriate* expressions are deposited at the current 
location. Mote that the old value of R2 (which taa be a pointer tD a sa»bol 
fro* the last invocation of DOEXPR) is saved before parsind an expression. 
This is to accotodate the .ESC directive* whose parsind will chande the value 
of R2. The old value is needed for seouences such as <sa»bol> .ESC K . 

The old value of EXPFLG is also saved* for the sa*e reason. 




.EMABL 

LSB 


000212 

DOEXPR 

i!JSR 

PC* GENEXP 

idet an express ion 

000072 


CHPB 

R0*»072 

iis next character !? 



BEQ 

144 

*ues* idnore expression 

000075 


CMPB 

R0»*075 

*is next character -7 



BEQ 

144 

iaes* idnore expression 

007326 


HTPS 

84CURCQH 

ihas RS been set? 



BVC 

24 

iaes* not Just a nate 

007332 


HTPS 

MEXPFLG 

iwhat is r*a»e? 



BPL 

84 

Predefined saabol 



BVC 

94 

idefmed user saebol* proceed 

007706 


TST 

MFLAGS1 

ielse see if we are in PASS1 sode 



BPL 

34 

iuser defined nate has no value in PASS2* e; 


94! 

NOV 

R4*R5 

idet naae's value 

000077 

Cv| 

CHPB 

R0.4077 

iis next character ■?'? 



BED 

144 

iaes* do nothind 

000134 


CHPB 

R0*tl34 

iis it \? 



BEQ 

144 

iaes* do nothind 

000137 


CMPB 

R0**l3? 

iis it _? 



BEQ 

144 

iaes* do nothind 

000033 


CMPB 

R0*t033 

iis it <ESC>? 



BEQ 

144 

iaes* do nothind 

007324 


MTPS 

WLINFIG 

ihas underline been executed? 



EMI 

64 

iaes* du*p RAM locations 

010120 


JSR 

PCfADRCHt 

icheck if odd address or not in user RAM 

007330 


TSTB 

MTNPHOD 

iare we in bate aode? 



BMI 

44 

iaes 



HQV 

R5*8R4 

ideposit data word 

007756 


INC 

844ADBR 




BR 

54 


176536 

34! 

JNP 

CM0N2 



4$! 

HOVB 

R5.8R4 

{deposit bate of data 

007756 

54! 

INC 

M4ADDR 


177152 

144! 

JNP 

CONTIN 

irecover last character* parse next coaaand 


000010 

007324 

64! 

BICB 

4F.SAVX,MLINFLG 

007336 



NOV 

MSAVEXP*R4 idet startind address 

010524 


74! 

JSR 

PCiTYPLIN iduap a line of locations 



114! 

BNE 

144 

000100 

007330 

104! 

BITS 

*F.INST*MTNPHODiavoid tapind duplicate addresses 




BEQ 

74 
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58 144470 

004767 

010512 


JSfi 

PC f TYPLIN+4 


59 144474 

000770 



BR 

lit 


60 

61 144476 

102403 


8»! 

BOS 

12$ 

iis a directive or verb 

62 146500 

103317 



BCC 

91 

!is R0( x Blr etc. 

63 144502 

000167 

005500 


JNP 

GETIMS 

ielse is an instruction 

64 

65 144506 

000167 

002460 

12$: 

JNP 

DOVERS 

{handle directives and verbs 

66 




.DSABL 

LSE: 



67 
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1 

2 

3 

4 

5 

6 

7 144512 

8 144520 
? 

10 144522 

11 144526 

12 144532 

13 144540 

14 144542 

15 144546 

16 144550 

17 144554 

18 144556 

19 144562 

20 144564 

21 144570 

22 144574 

23 144600 

24 144602 

25 144606 

26 144610 

27 144614 

28 144616 

29 144622 

30 144624 

31 144630 

32 144632 

33 144636 

34 144640 

35 144644 

36 144646 

37 144652 

38 144656 

39 144662 

40 144664 

41 144666 

42 144670 

43 144674 

44 144676 

45 

46 144700 

47 144702 

48 144710 

49 144714 

50 144716 

51 

52 144720 

53 144724 

54 144730 

55 144734 

56 144736 

57 144742 


GETEXP parses a whole expression and returns its value in R5. 

GENEXP parses an expression or recodnizes an instruction or syabol, 





■EMABL 

L5B 


152737 

000002 

007326 

GENEXP!iBISB 

♦F.VALUiMCURCQHiset flad to allow non-valued objects 

000402 



BR 

7t 

isuch as undefined syabolsi directives! etc. 

004767 

000452 


getexp::jsr 

PCrEXIMIl 

initialize and set valued expression 

005037 

007332 


74! CLR 

etEXPFLG 

(clear level counter and tera flags 

152737 

000004 

007326 

BISB 

♦F.UNDFigtCURCQHiclear undefined expression flad 

005004 



GETEX1! CLR 

R4 

(initialize ten resister 

120027 

000053 


CHPB 

R0.4053 

(is it 4? 

001464 



BEQ 

GETOPV 

isesi accept operator 

120027 

000055 


CHPB 

R0r»055 

(is it -? 

001461 



BEQ 

GETOPV 


120027 

000043 


GETERHilDMPB 

R0i4043 

(is it ♦? 

001004 



BNE 

It 


004767 

000402 


JSR 

PCrEXINIT 

(set valued expression 

004767 

166632 


JSR 

PCiGETNXT 

(Set next character 

120027 

000074 


it: CHPB 

RO.I074 

(is it <? 

001522 



BEQ 

LPAREN 

iuesr do left parenthesis 

120027 

000133 


CHPB 

R0itl33 

(is it [? 

001517 



BEQ 

LPAREN 

(yesi do left parenthesis 

120027 

000047 


CMPB 

R0»t047 

(is it '? 

001003 



BNE 

3t 

(no 

004767 

001236 


JSR 

PCrGETLIT 

(parse literal ter» 

000436 



BR 

GETOPV 

(force valued expression and Set operator 

004767 

007526 


3t! JSR 

PDtNOMCH 

(is it nuaeric? 

100403 



BMI 

2t 

(no 

004767 

000450 


JSR 

PCiGETNHB 

(det nuaber 

000430 



BR 

GETOPV 

(force valued expression! det operator 

004767 

007436 


2tl JSR 

PCfRADCH 

(is it RAB50 character? 

100476 



BMI 

13t 

(nor illedal character 

004767 

000576 


JSR 

PCtGETNAM 

(parse naked object 

106737 

007332 


MFPS 

0#EXPFLG 

(save condition flass 

106437 

007332 


MTPS 

BtEXPFLG 

(recover actual values 

100406 



BMI 

St 

(user defined syabol or undefined riaae 

102446 



BVS 

ENDEXP 

(a directive or verbi try to exit 

103016 



BCC 

GETOPR 

(predefined ssaboli get operator 

106437 

007326 


MTPS 

itCURCOM 

(is this a valued expression? 

102442 



BVS 

ENDEXP 

(noi we have an instruction.' try to exit 

000412 



BR 

GETOPR 

(use base value of instruction as datai get op. 

102011 



8t! BVC 

GETOPR 

(proceed if user syabol if defined 

142737 

000004 

007326 

EICB 

4F.UNBFiBtCORCQM.shou we have encountered an undefined ssabol 

005737 

007706 


TST 

MFLAGS1 

(are we in PASS1? 

100032 



BPL 

ENDEXP 

(not don't allow undefined syabol in expression 

000402 



BR 

GETOPR 

(yesr proceed with expression 

004767 

000246 


getopv::jsr 

PCrEXINIT 

(initialize data expression 

004767 

166456 


GETOPRUJSR 

PCiGETLCH 

(recover last character 

120027 

000076 


CMPB 

R0-1076 

(is it >? 

001506 



BEQ 

RPAREN 

(yes! do right parenthesis 

120027 

000135 


CMPB 

R0.I135 

(is it 1? 

001507 



BEQ 

FPAREN 

(yesi do right parenthesis fetch 
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•Sb\m 





SSf. A 

59 

144750 

103412 


BL0 

6$ 

jyesi not an operator 

60 

144752 

120027 

000060 

CMPB 

R0.406C 

pis it above /? 

61 

144756 

103007 


BHIS 

6$ 

iyes> not an operator 

62 

144760 

116001 

155774 

M0VB 

PARAMS-040(R0)>R1 iget parsing code 

63 

144764 

042701 

177770 

BIC 

4177770.R1 

iaask out the garbage 

64 

144770 

020127 

000006 

CMP 

RM6 

!is it an operator? 

65 

66 
67 
69 
69 

144774 

103053 


BHIS 

nooPER 

Jyesi do operator 

144776 

004767 

000216 

641 JSR 

PC.EXDOOP 

(no »ore operators) but do previous one 

145002 

105737 

007333 

endexp: tstb 

84LEVEL 

iare we at top level? 

70 

145006 

001015 


BNE 

13$ 

ino) error 

71 

145010 

106437 

007326 

MTPS 

MCURCOM 

iis expression supposed to be valued? 

72 

145014 

102410 


BVS 

5$ 

(not necessarily 

73 

145016 

106437 

007332 

MTPS 

MEXPFLG 

iwas ten valued? 

74 

145022 

100401 


BHI 

9$ 

ino> but it was user defined 

75 

145024 

102406 


BOS 

13$ 

Inof error 

76 

145026 

102003 


94; BVC 

5$ 

iwas valued) no prohle* 

77 

145430 

005737 

007706 

TST 

6IFLA6S1 

iare we in PASS1? 

78 

145034 

100101 


BPL 

12$ 

ino) undefined syibol is not allowed 

79 

qa 

145036 

000167 

166344 

5$: jmp 

GETLCH 

iset last character back in RO 

ov 

ai 

82 

83 

145042 

000167 

176116 

13 $: jmp 

CM0N2 

ishow error 

145046 

020627 

007410 

lparen: cmp 

SP»#B0TT0M+10.+22.+2. iis there roo» to recurse? 

84 




»(that was 5 words for future JSRsr 11 for interuets» and 1 safety) 

85 

145052 

103773 


BLO 

13$ 

ino) parenthesis too deep 

86 

145054 

004767 

000112 

JSR 

PCfEXIRIT 

iforce upper expression to be valued 

87 

145060 

010546 


MOV 

R5.-1SP) 

isave accuiulator 

88 

145062 

113746 

007343 

HOVB 

?$OPERAT>'(SP) 

iand previous operator 

89 

145066 

105237 

007333 

INCB 

MLEVEL 

ishow we are going deeper 

90 

145072 

004767 

000102 

JSR 

PC.EXINI1 

'initialize accu*. and operator for next level 

91 

145076 

004767 

166324 

JSR 

PC.GETHXT 

iget first character of nested expression 

92 

145102 

004767 

177432 

JSR 

PCtGETEXl 

iset value of nested expression 

93 

145106 

010504 


MOV 

R5)R4 

inested value becoees operand 

94 

145110 

112637 

007343 

MOVE 

(SPH.MOPERAT 

(recover operator 

95 

145114. 

012605 


MOV 

CSPH,R5 

iand accukulator 

96 

145116 

004767 

166304 

JSR 

PCrGETNXT 

(get character after right Paren 

97 

90 

99 

145122 

000700 


BR 

GETOPR 

iand look for next operator 

145124 

004767 

000042 

HOOPER! JSR 

PCiEXIMIT 

iforce valued expression 

100 

145130 

004767 

000064 

JSR 

PCiEXOOOP 

iexecute previous operator 

101 

145134 

004767 

166246 

JSR 

PCrGETLCH 

)get new operator 

102 

145140 

110037 

007343 

HOVB 

ROiStOPERAT 

istore it 

103 

145144 

004767 

166256 

JSR 

PCiGETHXT 

iget next character 

104 

145150 

000602 


BR 

GETERM 

ilook for a ter» 

105 







106 

145152 

105337 

007333 

rparen: decb 

MLEVEL 

iare we at top level? 

107 

145156 

100731 


BMI 

13$ 

iyes) too »any right parenthesis 

108 

145160 

000417 


BR 

EXDOOP 

!do last operator inside parenthesis and return 

109 







110 

145162 

004767 

177764 

fparen: jsr 

PCiRPAREN 


111 

145166 

011505 


MOV 

PR5.R5 

ido a fetch 

112 

145170 

000207 


RTS 

PC 


113 







114 

145172 

106437 

007326 

EXINITi MTPS 

MCURCOM 

ihas expression already been initialized? 
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115 145176 

102007 




bvc 

44 

(yes 

116 145200 

112737 

000053 

007343 

Exim; 

H0VB 

♦053»84OPERA! 

(set + as default operator 

117 145206 

005005 




CLR 

R5 

ielear expression aecu»ulator 

118 145210 

142737 

000002 

007326 


BICB 

♦F.VALUiMCURCQHishou expression is valued 

119 145216 

000207 



4»: 

RTS 

PC 


120 








121 145220 

106437 

007326 


exdoop: 

MTPS 

84CURC0M 

(if expression is valued* do operator 

122 145224 

102774 




BVS 

4* 

(not valued 

123 145226 

113701 

007343 



M0VB 

OlOPERATpRl 

(det operator 

124 145232 

006301 




ASL 

R1 

)»ake a word index 

125 145234 

000171 

145146 



JMP 

80PRTBL-102(R1) 

(execute operator 

126 








127 145240 

012702 

151372 


12 »: 

MOV 

4lWD£FXrR2 

(point to undefined expression eessaSe 

128 145244 

000167 

175742 



JMP 

ERROR 

(show error 

129 





.DSABL 

LSB 


130 








131 145250 

152130 



qprtbl: 

.WORD 

L060R 

(! 

132 145252 

143164 




, WORD 

CM0N2 

;* 

133 145254 

143164 




.WORD 

CMON2 

(i 

134 145256 

143164 




.WORD 

CH0N2 

(4 

135 145260 

143164 




.WORD 

CH0M2 

(X 

136 145262 

152134 




, WORD 

LOGAMD 

(1 

137 145264 

143164 




.WORE 

CM0M2 

( ' 

138 145266 

143164 




.WORD 

CM0M2 

(< 

139 145270 

143164 




.WORD 

CMQM2 

0 

140 145272 

152142 




.WORD 

MULT IP 

it 

141 145274 

152154 




.WORD 

ADDIT 

it 

142 145276 

143164 




.WORD 

CM0M2 

i ? 

143 145300 

152160 




.WORD 

SUBTR 

(- 

144 145302 

143164 




.WORD 

CM0N2 

i. 

145 145304 

152164 




.WORD 

DIVIO 

(7 
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1 

2 

3 

4 

5 

6 145306 005303 

7 145310 010346 

8 145312 004767 

9 145316 004767 

10 145322 100373 

11 145324 012603 

12 145326 005001 

13 145330 120027 

14 145334 001427 

15 145336 004767 

16 145342 100402 

17 145344 000167 

18 

19 145350 004767 

20 145354 004767 

21 145360 100410 

22 145362 102770 

23 145364 162700 

24 145370 006301 

25 145372 006301 

26 145374 006301 

27 145376 060001 

28 145400 000763 

29 

30 145402 005303 

31 145404 004767 

32 145410 010104 

33 145412 000207 

34 

35 145414 004767 

36 145420 004767 

37 145424 100767 

38 145426 162700 

39 145432 006301 

40 145434 010146 

41 145436 006301 

42 145440 006301 

43 145442 062601 

44 145444 060001 

45 145446 000762 
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i+k 

} GETNhB parses a number and returns all condition flaSs lowered, 
r— 



GETHMBIIDEC 

R3 



MOV 

R3HSP) 

166000 


JSR 

PC.GETCH 

007034 


JSR 

PC.MUHCH 



BPL 

14 



MOV 

(SR)k)R3 



CLR 

R1 

000056 


CMPB 

R0.4056 



BEG 

24 

006740 


JSR 

PC.RADCH 



BMI 

34 

175614 

4*: 

JKP 

CM0H2 

165742 

3$: 

JSR 

PC.GETCH 

006776 


JSR 

PC.NUMCH 



BMI 

54 



8VS 

44 

000060 


SUB 

4060iRO 



ASL 

R1 



ASL 

R1 



ASL 

R1 



ADD 

ROiRl 



BR 

34 


5»: 

DEC 

R3 

166016 

641 

JSR 

PC.GETKXT 



MOV 

RlrR4 



RTS 

PC 

165676 

2»: 

JSR 

PC.GETCH 

006732 


JSR 

PC.HUMCH 



BMI 

64 

000060 


SUB 

4060.RC 



ASL 

R1 



MOV 

Rli-(SP) 



ASL 

Rl 



ASL 

R1 



ADD 

(SPHiRl 



ADD 

ROrRl 



BR 

24 


fsave runninS pointer to peek ahead 


fis it 0 throush 97 

fyes. wait for first non-numeric character 
f So back to beSinninS of number 

fis first non-numeric character a period? 

tyesi parse a deciial nukber 

fis it alphabetic? 

fnc. parse an octal number 

fillesalt label besins with a number 


fis it 0 throush 7 or 8 throush 9? 
fnoT end of nu«ber 

J8 and 9 are illeSal in octal nuibers 
i»ake it BCD 


faccumulate diSits 
fset next disit 


fSet character after number 
fstore value of number 


ftrailins deciial point 


iaccumulate diSits 
fset next disil 
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+4 


GETNAM parses a naie and converts it into RAD50 at locations T8LT0P and 
TW.TGP+2. If the naie has a corresponded value) it is placed in R4. 

R2 is an index to where the na»e is stored. It can index either the RAB50 
table in ROH for predefined swibalsi or the user ssmbol table. GETNAM 
returns condition flads to indicate these options as follows! 

0=1 leans the naie has no value 
N=1 leans the naie is user defined (not predefined) 


10 




1 

C-l leans the naie is a ineionic. directive, or verb 

11 




1 

N=0. V=0» 

C=0 leans that the naie is RO. SP. PC. Bl. UR. etc. 

12 




i 

N=0. 0=0. 

C=1 leans that the naie is an instruction 

13 




{ 

N=0» V=l» 

C=1 leans that the naie is directive or verb 

34 




9 

N=l. V=1 wans that the naie is an undefined saabol 

15 




i 

N=l» 0=0 leans that the naie is a user saibol 

16 




r— 




17 








18 





.ENABL 

LSB 


1? 145450 

112737 

000003 

007341 

GETNAM!!NQVB 

43.MC0UNT2 


20 145456 

005901 




CLR 

R1 


21 145460 

004767 

006732 


it: 

JSR 

PC.ASCRAE 

iconvert ASCII in RO to RAD50 in Rl 

22 145464 

004767 

165626 



JSR 

PC.GETCH 

.Set next character 

23 145470 

004767 

006606 



JSR 

PC.RADCH 

.is it a ledal RAD50 character? 

24 145474 

100431 




BhI 

24 

.no. end of naie 

25 145476 

105337 

007341 



DECS 

MC0UNT2 


26 145502 

001366 




BNE 

14 


27 145504 

010137 

007320 



MOO 

R1.84TBLT0P 


28 145510 

112737 

000003 

007341 


MOOR 

43.G4C0UNT2 


29 145516 

005001 




CLR 

R1 


30 145520 

004767 

006672 


341 

JSR 

PC,ASCRAB 


31 145524 

004767 

165566 



JSR 

PC.GETCH 


32 145530 

004767 

006546 



JSR 

PC.RADCH 


33 145534 

100421 




BMI 

64 


34 145536 

105337 

007341 



BECB 

84COUNT2 


35 145542 

001366 




BNE 

34 


36 145544 

004767 

165546 


4*1 

JSR 

PC.GETCH 

.discard all characters after 4 

37 145550 

004767 

006526 



JSR 

PC.RADCH 

.is character still part of naie? 

38 145554 

100373 




BPL 

44 

.yes 

39 145556 

an 

000412 




BR 

51 


TV 

41 145560 

004767 

000264 


24! 

JSR 

PC.PAORAD 

.pad Rl with spaces 

42 145564 

010137 

007320 



MOO 

R1.B4TBLT0P 

.store first word of naie 

43 145570 

012737 

000003 

007341 


MOO 

43.84C0UNT2 


44 145576 

005001 




CLR 

R1 


45 145600 

004767 

000244 


641 

JSR 

PCiPABRAD 


46 145604 

010137 

007322 


54! 

MOV 

R1.84T8LT0PE2 


47 145410 

005303 

4 



DEC 

R3 

.det next teanindful character 

48 145612 

004767 

165610 



JSR 

PC.GETNXT 


49 145616 

013700 

007320 



MOV 

84TBLT0P.R0 

IRQ. Rl contain converted naie 

yj 

51 145622 

005002 




CLR 

R2 

icoieare naie to predefined ones 

52 145624 

020062 

156142 


1041 

CMP 

R0.DSYHS(R2) 


53 145630 

001011 




BNE 

114 


54 145632 

020162 

156144 



CMP 

R1.DSYMST21R2) 


55 145636 

001414 




BED 

PDSVAL 

.set value of predefined suihol 

56 145640 

020127 

006200 



CMP 

Rl.450450402 

iiidht this be a bste lode weionie? 

57 145644 

001003 




BNE 

114 

.no 
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58 

145646 

005762 

156144 


TST 

DSYHS+2(R2) 

land is na*e the saae without trail ins ‘B 1 ? 

59 

145652 

001406 



BEQ 

PBSVAL 

ises- handle bate node case 

60 

145654 

022222 


114! 

CMP 

(R2)+f(R2)+ 

-advance to next naae 

61 

145656 

020227 

000770 


CMP 

R2-4T0PNAM 

-end of table? 

62 

145662 

103760 



BLO 

104 

-not set 

63 

64 

65 

145664 

000167 

003670 

2141 

JMP 

GETSYM 

ino natch to predefined ssnbols 

145670 

020227 

000054 

PDSVALJJCMP 

R2-4DSYMUR-DSYMS!non det ssnbol's value in R4 

66 

145674 

103401 



BLO 

134 

-R0 throudh . 

67 

145676 

002005 



B6E 

144 

iBl or hidher 

68 

145700 

006202 


134! 

ASR 

R2 

-take a word index 

69 

145702 

016204 

007732 


MOV 

4R0(R2bR4 

-RO throudh . 

70 

145706 

006302 



ASL 

R2 


71 

72 

73 

145710 

000405 



BR 

154 


145712 

020227 

000100 

144! 

CMP 

R2-4BIRVRB-DSYMS 

74 

145716 

103004 



BH1S 

74 

-BASIC or hi^ier 

75 

145720 

016204 

007700 


MOV 

BRKFIL-<BSYM0R+4-DSYMS>(R2)-R4 -B1 throudh B4 

76 

145724 

000257 


154! 

CCC 


iflas a predefined syabol 

77 

78 

79 

145726 

000207 



RTS 

PC 

-and return 

145730 

020227 

000300 

74! 

CMP 

R2-4CMNEHS-BSYHS 

80 

145734 

103003 



BHIS 

174 

-CLC or hidher 

B1 

145736 

000277 



see 


iflad a directive or verb 

82 

145740 

000250 



CLN 



83 

84 

85 

145742 

000207 



RTS 

PC 

-and return 

145744 

006202 


174! 

ASR 

R2 


86 

145746 

016204 

155440 


MOV 

CBASES-«CHNEMS-DSYHS>/2> (R2)-R4 idet value of aneaonic 

87 

145752 

006302 



ASL 

R2 


88 

145754 

020227 

000340 


CMP 

R2-4MNEMS-DSYMS 


89 

145760 

103003 



BHIS 

184 

-HALT or hidher 

90 

145762 

012702 

000064 


MOV 

4HNCCC-MNEHS-R2 

-index aneaonic CCC 

91 

92 

93 

145766 

000421 



BR 

194 


145770 

020127 

006200 

184! 

CMP 

R1-450450402 

-byte *ode naae? 

94 

145774 

001014 



BNE 

204 

-no 

95 

145776 

020027 

075131 


CMP 

RO-4<23450+27>450+01 -SHAB aneaonic? 

96 

146002 

001411 



BEQ 

204 

isesi not bste aode 

97 

146004 

006202 



ASR 

R2 


98 

146006 

006202 



ASR 

R2 


99 

146010 

105762 

155744 


TSTB 

PARAMS-«MNEMS-DSYMS>/4XR2> -instruction ledal in bate »o< 

100 

146014 

100323 



BPL 

214 

-no 

101 

146016 

006302 



ASL 

R2 


102 

146020 

006302 



ASL 

R2 


103 

146022 

052704 

100000 


BIS 

4100000-R4 

-adjust opcode to bste aode 

104 

146026 

162702 

000340 

204! 

SUB 

4HNEMS-DSYMS»R2 

-adjust index to instruction table 

105 

146032 

000257 


194! 

CCC 



106 

146034 

000261 



SEC 


-flad an instruction 

107 

146036 

000207 



RTS 

PC 


108 





.DSABL 

LSB 


109 








110 

146040 

012700 

000040 

PADR1! 

MOV 

4040-R0 


111 

146044 

004767 

006346 


JSR 

PC-ASCRAB 


112 

146050 

105337 

007341 

PADRAD! 

DECS 

84C0UMT2 

-routine to pad RAB50 triplet with spaces 

113 

146054 

001371 



BNE 

PADR1 


114 

146056 

000207 



RTS 

PC 
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1 

2 

3 

4 

5 

6 146060 004767 

7 146064 120027 
0 146070 001002 

9 146072 000167 

10 

11 146076 010004 

12 146100 000167 

13 

14 

15 146104 110137 

16 146110 004767 

17 146114 005303 

18 146116 105737 

19 146122 100403 

20 146124 042737 

21 146132 120027 

22 146136 001106 

23 146140 113737 

24 146146 000502 

25 

26 146150 152701 

27 146154 000753 

28 

29 

30 146156 012700 

31 146162 105060 

32 146166 077003 

33 146170 005037 

34 146174 000467 

35 

36 

37 146176 142701 

38 146202 152701 

39 146206 000736 

40 

41 146210 142701 

42 146214 152701 

43 146220 000731 

44 

45 146222 012737 

46 146230 000451 

47 

48 146232 132737 

49 146240 001447 

50 146242 106437 

51 146246 100044 

52 146250 102443 

53 146252 162702 

54 146256 004767 

55 146262 004767 

56 146266 000432 

57 
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m 

i GETLir parses ASCII literals. 


165326 

6ETLITJ!JSR 

PCiGETCHC 

»5et next character! don't fold case 

000015 

CHPB 

R0iW15 

iis it <CR>? 


BNE 

It 

ino 

175066 

JMP 

CHON 2 

(error! no character on line 


it: mov 

R0iR4 

istore value 

165322 

JMP 

GETNXT 

(Set next character! return 


007330 


sethod: 

MOV 6 

RlrMTMPMQD 


165312 



JSR 

PCrGETNXT 





DEC 

R3 


007330 



TST£r 

MTNPHOB 





BHI 

It 


000001 

007756 


Brc 

♦l(MtADDR 

(fix address when leavins bate tode 

000015 


it: 

CHPB 

R0(»015 

iis *ode couand last cottand on line? 




BNE 

ECON 

Jnc 

007330 

007331 


MOVB 

0*TMPMOD(0tPERMOD iyes. set permanent »odes 




BR 

ECON 


000002 


EABSi: 

B1SB 

♦F,ABS(R1 





BR 

SETHOB 



000020 

ecan:: 

HDV 

♦20(RO 

007757 

it: 

CLRB 

BRKFlL-l(RO) 



SOB 

R0(lt 

007754 


CLR 

MtHATCH 



BR 

ECON 


000100 


ebyt: : 

BICB 

»F.INST(R1 


000200 



MSB 

IF,8YTH(R1 





BR 

SETHOD 


000200 


eins: : 

BICB 

♦F.BYTH.R1 


000100 



BISB 

IF.1NSI(R1 





BR 

SETHOB 


007320 

007462 

ECLR'.t 

MOV 

♦TBLTOP(0trBLBOT(iove susble table pointer to e*rta position 




BR 

ECON 


000002 

007327 

edel:: 

BITB 

♦F.VALUfMLASCOHiwas last 'coMand' valued? 



EDELIS 

BEG 

EERR 

ises! not just a naee 

007332 



MTPS 

MEXPFLB 





BPL 

EERR 

ican't delete predefined sy»bols 




BVS 

EERR 

ican't delete a forward reference 

000006 



SUB 

♦6>R2 

iback up to specified entry 

003620 



JSR 

PC (TYPSYM 

(tape current value before deletind 

003406 



JSR 

PC(BELSYM 

(delete entry 




BR 

ECON 
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5B 

146270 

142701 

000300 


enuk:: 

BICB 

♦F.INST4F.BYTHiRl 

59 

60 

146274 

000703 




8 R 

SETHOD 


61 

62 

146276 

010537 

007466 


erep;: 

HOV 

R5»MREPEAT 

(enable repeated execution 

63 

146302 

110337 

007630 



HGV8 

R3.MBF 

fact like a new line starts after <ESC> N 

64 

65 

66 

146306 

000167 

174734 



JHP 

CH0N4 

(execute rest of line repeatedly 

146312 

142701 

000002 


ESYHi! 

BICB 

♦F.ABSfRl 


67 

68 

146316 

000672 




BR 

SETHOD 


69 

70 

146320 

004767 

165102 


eext:: 

JSR 

PCiGETNXT 

(set character after 1 

71 

146324 

004767 

176172 



JSR 

PCfGETEXP 

(parse transfer address 

72 

73 

74 

146330 

000115 




JHP 

8R5 


146332 

016746 

040772 


ereb; ; 

HOV 

THPHODi-(SP) 

5for bste »ode 

75 

146336 

042767 

000200 

040764 


BIC 

♦F.BYTHrTKPHOD 

T 

76 

146344 

004767 

003360 



JSR 

PCiTYPREG 

(type contents of registers and watchpoint 

77 

146350 

012667 

040754 



MOV 

(SPHdHPMOB 

irestore flass 

7B 

146354 

000167 

175224 


ecoh: 

JHP 

CHONS 


79 

60 

81 

146360 

000167 

174600 


eerr: 

JHP 

CH0N2 


146364 

106437 

007324 


ehov:: 

HTPS 

8 M.INFLG 

(see if underline has been executed 

82 

146370 

100373 




BPl 

EERR 

■ it hasn't—error— *issinS raraeeter 

B3 

146372 

010502 




HOV 

R5»R2 

(Set final address of source »e*ory block 

84 

146374 

013701 

007336 



HOV 

8*SAVEXP,R1 

(Set startins address of source 

85 

146400 

142737 

000010 

007324 


BICB 

*F.SAVX(MLINFL.G!show that saved expression has been used 

86 

146406 

005737 

007706 



TST 

MFIAGS1 

(are we in PASS1 «ode? 

07 

146412 

100760 




BHI 

ECDN 

(yes( don't execute love 

88 

146414 

020201 




CHP 

R2.R1 

fis final address below startins address? 

B9 

146416 

103760 




BU) 

EERR 

iuesi show error 

90 

146420 

105737 

007330 



TSTB 

BtTHPHOD 

(are ue in byte tode 7 

91 

146424 

100404 




BHI 

14 

(yes 

92 

146426 

042701 

000001 



BIC 

♦1.R1 

(else force startins address to even boundary 

93 

146432 

052702 

000001 



BIS 

♦1.R2 

(arid final address to odd boundary 

94 

146436 

013704 

007756 


n: 

HOV 

?*4ADDR(R4 

(Set startins address of destination block 

95 

146442 

060204 




ADD 

R2»R4 

(calculate final address fro* lensth of source 

96 

146444 

U0104 




SUB 

R1.R4 


97 

146446 

010400 




HOV 

R4i RO 

(save result for later 

98 

146450 

105737 

007330 



TSTB 

MTHPHOD 

(are we in byte *ode? 

99 

146454 

100401 




BHI 

24 

(yes 

100 

146456 

005304 




DEC 

R4 

(adjust result for previous BIC and BIS 

101 

146460 

004767 

006044 


2 t: 

JSR 

PCeADRCH2 

(check that final destination address is lesal 

102 

146464 

004767 

006034 



JSR 

PCiADRCH! 

(Set startins destination address and check it 

103 







(now see if destination addresses straddle protected RAH 

104 

146470 

020027 

006500 



CHP 

R0r*4UR 

(is final addr below lower instance of prot RAH 

105 

146474 

103415 




BID 

34 

>yes( destination ranse OK 

106 

146476 

020427 

020000 



CHP 

R4p*20000 

(is start addr above upper instance of prot RAH 

107 

146502 

103012 




BHIS 

34 

(yes» destination ranse OK 

108 

146504 

020427 

010000 



CHP 

R41*10000 

(does destin overlap lower instance of prot RAH 

109 

146510 

103403 




BLQ 

44 

fyesr ranse is unacceptable 

110 

146512 

020027 

020000 



CHP 

ROf*20000 

(is final addr below upper instance of prot RAH 

111 








(this is a trick test — we know R0 is not 

112 








(within the ranse 4UR+10000-17777 fro* ADRCH2 

113 

146516 

103404 




BLO 

34 

(yesi ranse doesn't overlap upper instance 

114 

146520 

012702 

154476 


44! 

HOV 

»US£RAH?R2 

(point to user RAH error *essaSe 
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115 144524 
114 

117 144530 

118 144532 
11? 146534 

120 144534 

121 144540 

122 146542 

123 

124 146544 

125 146546 

126 144550 

127 144552 

128 146554 
12? 146554 

130 

131 146560 

132 144544 

133 146546 

134 146572 

135 144400 

136 146404 

137 144410 

138 144612 

139 146414 

140 146620 

141 144424 

142 146626 

143 146632 

144 144436 

145 146442 
144 146446 

147 146652 

148 146656 

149 144440 

150 144464 

151 146444 

152 144470 

153 144472 

154 146676 

155 144700 
154 146704 

157 144710 

158 144712 
15? 146714 
140 144720 

161 146722 

162 146724 

163 146730 
144 144732 
165 146734 

164 

147 146740 

168 146742 

169 146744 

170 146744 

171 146752 


000147 174462 


JNP 

ERROR 

{print error MssaSe 

020401 

3»: 

CMP 

R4.R1 

{now see if destination block is above or below 

101004 


BHI 

54 

{source — above »eans use backward transfer 

112124 

645 

MOVB 

(R1)+>(R4)4 

{else do forward transfer 

020102 


CMP 

R1*R2 


101775 


BIOS 

64 

{do entire block 

000704 


BR 

ECON 


005202 

545 

INC 

R2 

(adjust pointers for autodecreaent 

005200 


INC 

RO 


114240 

745 

MOVB 

-(R2)i-(R0) 

{perfor* backward transfer 

020201 


CMP 

R2.R1 


101375 


BHI 

74 

!do entire block 

000476 


BR 

ECON 



106437 

007324 

EFND5! 

MTPS 

84UNFLG 

(see if underline has been executed 

100275 



BPL 

EERR 

(it hasn't—error—nissird paraietsr 

010537 

007334 


MOV 

R5»P4AB0AItR 

(save upper search ranse liait 

142737 

000010 

007324 

BICB 

♦F.SAOXfRtLINFLGishou that saved expression has been used 

004767 

164622 


JSR 

PCiGETNXT 

(Set character after F 

004767 

175712 


JSR 

PCfGETEXP 

iset value ta be searched for 

024646 



CMP 

-(SP),-(SP) 

(lake space for two scratch location on stack 

010516 



MOO 

R5*(SP) 

{save value to be searched for on stack 

005066 

000002 


CLR 

2(SP) 

(initialize co»Ple»erit of search »ask. to zero 

120027 

000137 


CHPB 

R0iM37 

(is next character an underscore 7 

001010 



BNE 

It 

ir>ot optional *ask paraeeter riot present 

004767 

164574 


JSR 

PCuGETNXT 

{Set character after underscore 

004767 

175664 


JSR 

PC.GETEXP 

{Set search task 

010566 

000002 


MOO 

R5.2CSP) 

{store it on stack 

005146 

000002 


COM 

2(SP> 

{cotpleeent »ask 

013704 

007336 

it: 

MOO 

MSA0EXPtR4 

iset starting address of search ranSe 

105737 

007330 

2 t: 

TSTB 

B4THPM0B 

(are we in byte tode 

100430 



BMI 

4t 

{yes* perfor* bytewise search 

042704 

000001 


BIC 

♦1 >R4 

{for word search) *ake sure address is even 

011401 



NOV 

8R4.R1 

{set a word 

011600 



MOO 

(SP) iRO 

Idet search value 

074001 



XOR 

R0»R1 

icoipare values 

046601 

000002 


BIC 

2 (SP)»R1 

lisnore bits that are »asked out 

001005 


5t: 

BNE 

3t 

!no »atch 

004767 

006344 


JSR 

PCtTYPADR 

(type address of latched location 

004767 

006204 


JSR 

PCiTYPLOl 

{type contents) but not as an instruction 

000405 



BR 

61 

STYPL01 already incre*ented R4 

005204 


3t: 

INC 

R4 

{advance to next location 

105737 

007330 


TSTB 

MTHPMOD 

(are we in byte »ode? 

100401 



BMI 

61 

iyesr advance by one 

005204 



INC 

R4 

(else advance a whole word 

020437 

007334 

At: 

CMP 

R4.MAB0ABR 

(see if entire ranse has been checked 

101750 



BLOS 

2 t 

{continue searchinS 

022426 



CMP 

(SP)-ft (SP)4 

(discard stacked values 

000167 

174652 


JHP 

CGN7IN 

(recover character in ROj parse next ro»*and 

111401 


4t: 

MOVB 

8R4iRl 

iset a byte 

011600 



MOO 

(SP)jRO 

iset search value 

074001 



XOR 

ROiRl 

icoipare values 

046601 

000002 


BIC 

2<SP)iR! 

iisnore bits that are masked out 

042701 

177400 


BIC 

*177400»R1 

iisnore discrepancies in hiSh byte 
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172 114754 

000747 



BR 

54 


173 







171 







175 114740 

004767 

164540 

emod:: 

JSR 

PC.CRLF 

rstart a new line 

174 114744 

013704 

007706 


MOV 

MFLAGS1.R4 

idet a cans of so»e »ode flads 

177 116770 

012702 

156256 


MOV 

*BIRVB1,R2 

rPoir.t to PASS1 cowand 

178 114771 

032704 

100000 


BIT 

♦F.PAS1.R4 

isee if we're in PAS31 or PASS2 

179 117000 

004767 

000132 


JSR 

PC. 14 

{print proper »ode and point to MOPROT 

180 147004 

032704 

004000 


BIT 

*F > HOST rR4 

.see if HOST or NOHOST is active 

181 147010 

004747 

000122 


JSR 

PC. 14 

.print proper »ode 

182 147014 

113704 

007330 


MOVB 

MTMPM0D.R4 

idet a cops of the rest of the »ode flads 

183 147020 

012702 

156366 


MOV 

♦DIRVBI.R2 

Spoint to INSTRU cowand 

181 147024 

132704 

000100 


BITB 

♦F.IMST.R4 

{see if instruction node is active 

185 147030 

001402 



BE 8 

44 

{branch if not 

184 147032 

004747 

000100 


JSR 

PC.14 

{print proper tode 

187 147034 



it: 




188 147034 

012702 

156346 


MOV 

4B1RVBA.R2 

{point to ABSOLU cowand 

189 147042 

132704 

000002 


BITB 

4F.ABS.R4 

isee if absolute or swbolic node is active 

190 147046 

001002 



BME 

64 

{absolute »ode 

191 147050 

012702 

156412 


MOV 

♦BIRVBS.R2 

{point to swbolic »ode 

192 147054 

004767 

000056 

44: 

JSR 

PC.14 

{print proper »ode 

193 147040 

012702 

156362 


MOV 

♦BIRVBH.R2 

{point to BYTE cowand 

194 147064 

132704 

000200 


BITB 

IF.BYTM.R4 

isee if byte lode is active 

195 147070 

001402 



BfO 

74 

9it isn't, print nothind 

196 147072 

004767 

164676 


JSR 

PC.PRIHT2 

.else print BYTE cowand 

197 147076 

012702 

156376 

74! 

MOV 

♦DIRVBN-4.R2 

{point to word »ode 

198 147102 

132704 

000300 


BITB 

*F,INST!F.BYTM»R4 ‘.if not bate or instruction then word 

199 147104 

001002 



BNE 

204 


200 147110 

004767 

000022 


JSR 

PC.14 


201 147114 

012702 

156432 

2041 

MOV 

♦DIRVBT+14.R2 

{point to vtiode 

202 147120 

032767 

004000 040203 


BIT 

♦F.VTtPERHOB 

isee if set 

203 147124 

004767 

000004 


JSR 

PC.14 

.do show wich vt tode 

204 147132 

000167 

177216 


JMP 

ECON 

{and return 

205 







206 147136 

106746 


u: 

MFPS 

-<SP) 

.save 1 flas 

207 147140 

104416 



MIPS 

(SPt 

{set back a copy 

208 147142 

001001 



BNE 

24 

{print cowand pointed to by R2 

209 147144 

022222 



CMP 

(R2H.(R2H 

{else advance to next cowand 

210 147146 

004767 

164622 

24! 

JSR 

PC.PRINT2 

{print cowand. advance R2 

211 147152 

012700 

004440 


MOV 

#400*01 H040.R0 

i<space> <tab> 

212 147154 

004767 

164346 


JSR 

PC.CHRGUT 


213 147162 

106426 



MTPS 

(SPH 

{recover Z flas 

214 147144 

001401 



BEO 

34 

{if we advanced before, don't do it adain 

215 147166 

022222 



CMP 

(R2H.(R2)+ 

.skip over next cowand 

216 147170 

000207 


34: 

RTS 

PC 
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4 

147172 

162702 

000100 

doverb:jsub 

4BIRVRB-DSYMS»R2{remove offset fro* index to verb 

5 

147176 

006202 



ASR 

R2 

.mate it a word index 

6 

147200 

020227 

000042 


CMP 

R2rtVRBDSl-VRBDSP Sis this verb an <ESC> see. replacement 

7 

147204 

103403 



BLQ 

1$ 

ino 

e 

147206 

005303 



DEC 

R3 

.make it so that we can use previous routines 

9 

147210 

013701 

007330 


MOV 

MTMPM0D.R1 

(fro* the escape seauence handler 

10 

n 

147214 

000172 

147220 

i$: 

Jfff 

8VRBDSP1R2) 

{dispatch to proper handling routine 

12 

13 

147220 



vrbdsp:; 



14 

147220 

147320 



.WORD 

HELP 


15 

147222 

147432 



.WORD 

GO 


16 

147224 

147416 



iUORD 

STEP 


17 

147226 

150202 



.WORD 

PASS1 


18 

147230 

150212 



•UORD 

PASS2 


19 

147232 

150222 



.WORD 

HOST 


20 

147234 

150306 



.WORD 

NOHOST 


21 

147236 

150504 



.WORD 

TALK 


22 

147240 

150442 



.WORD 

LOAD 


23 

147242 

143164 



.WORD 

CNDN2 

{.START 

24 

147244 

143216 



•WORD 

CH0N3 

{.END 

25 

147246 

147776 



.WORD 

4.EVEN 


26 

147250 

147700 



.WORD 

4, ASCI 


27 

147252 

147466 



.WORD 

4.BYTE 


28 

147254 

147560 



.WORD 

4.WORD 


29 

147256 

147634 



.WORD 

4.BLKF 


30 

147260 

147654 



.WORD 

4.BLKW 


31 

147262 

146150 


vrbdsi: 

•WORD 

EABS 

IABSOLU point to the start of escape 

32 

147264 

146156 



.WORD 

ECAN 

{CANCEL 

33 

147266 

136752 



.WORD 

4KALT 

{EXIT 

34 

147270 

146176 



.WORD 

EBYT 

{BYTE 

35 

147272 

146210 



.WORD 

EINS 

ilNSTRU 

36 

147274 

146222 



.WORD 

ECLR 

{CLEARS 

37 

147276 

147444 



.WORD 

DELETE 

{DELETE 

38 

147300 

146270 



.WORD 

EHUN 

{WORD 

39 

147302 

150012 



.WORD 

4RPEAT 

{REPEAT 

40 

147304 

146312 



.WORD 

ESYM 

{SYMBOL 

41 

147306 

146760 



.WORD 

EHOD 

fSHOUMO 

42 

147310 

146332 



.WORD 

EREG 

iSHOWRE 

43 

147312 

152040 



.WORD 

TYPTBL 

{SHOWSY 

44 

147314 

147374 



.WORD 

VTON 

!VTOH 

45 

46 

47 

147316 

147406 



.WORD 

VTOFF 

{VTOFF 

147320 

012702 

156242 

HELP!! 

MOV 

4DIRVRB.R2 

{tape the verb/directive table on the console 

48 

147324 

004767 

164174 

24! 

JSR 

PCrCRLF 

{start a new line 

49 

147330 

112737 

000010 007341 


HOVB 

I8..8IC0UNT2 

{put 8 commands on a line 

50 

147336 

004767 

164432 

14! 

JSR 

PC.PRIKT2 

{print a command 

51 

147342 

020227 

156442 


CMP 

R2.4CMNEMS 

.have we done the whole table 7 

52 

147346 

103010 



BHIS 

34 

{yes 

53 

147350 

105337 

007341 


DECB 

84C0UMT2 

{have we finished a line? 

54 

147354 

001763 



BED 

24 

{yes 

55 

147156 

012700 

004440 


MOV 

*4004011FO40.R0 

{twee <space> <tab> 

56 

147362 

004767 

164142 


JSR 

PCrCHROUT 


57 

147366 

000763 



BR 

14 
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58 


59 

60 
61 

147370 

000167 

174216 


341 JMP 

CONTIN 

!recover character in R0> continue parsing line 

147374 

052767 

004000 

037726 

vtgn: BIS 

♦F.VTiTMPMOD 

(turn vt »ode on 

62 

63 

64 

147402 

000167 

174176 


vtjmp: jmp 

CH0N5 


147406 

042767 

004000 

037714 

VT0FF! BIC 

♦F.VTiTMPMOD 

iturn vt off 

65 

66 
6? 

147414 

000772 



SR 

VTJMP 


147416 

052737 

000200 

007706 

step:: bis 

♦F.SSTiBIFLAGSl 

(show we are single stepping 

68 

147424 

152737 

000001 

007324 

BISB 

♦F.SSTliMLINFIG 

69 

147432 

023727 

007746 

006500 

go:: cmp 

MtSPiMUR 

iis user SP in his RAM? 

70 

71 

147440 

000167 

172256 


JHP 

tGOl 

iuse Keypad »onitor GO routine 

72 

73 

147444 

005203 



delete::inc 

R3 

icounteract earlier DEC R3 in this case 

74 

147446 

004767 

175040 


JSR 

PCtGENEXP 

iset saibol na*e to be deleted 

75 

147452 

005303 



DEC 

R3 

inou prepare to use <ESC> seouence routine 

74 

147454 

132737 

000002 

007326 

BITB 

♦F.VALUiMCURCONi rep laces test on LASCOM in EDEL 

77 

78 

147462 

000167 

176552 


JMP 

EDEL1 

(go to routine to delete a sy»bcl 

79 

80 

147466 

013737 

007756 

007334 

t, byte::mov 

MtADDRiMADVADRfget a scratch cops of current address 

81 

147474 

004767 

175022 


it: jsr 

PC.GETEXP 

(get a value to be deposited 

82 

147500 

113746 

007330 


MOVB 

BtTMPMODi-(SP) 

(fool ABRCHK into thinking we are in bate »ode 

83 

147504 

052737 

000200 

007330 

BIS 

♦F.BYTHiBtTMPMOD 

84 

147512 

013704 

007334 


MOV 

B*ADVADRiR4 

(get running copy of current address 

85 

147516 

004767 

005006 


JSR 

PC.ADRCH2 

(check that it's not in protected RAM 

86 

147522 

112637 

007330 


MOVB 

(SP)FiMTNPMQD 

(restore proper »ode bits 

87 

147526 

110514 



MOVB 

R5»8R4 

(deposit a bate 

88 

147530 

005237 

007334 


INC 

8IADVADR 

(advance running address 

89 

147534 

120027 

000054 


CHPB 

ROr #054 

(is next character a conns? 

90 

147540 

001003 



BNE 

2$ 

(no 

91 

147542 

004767 

163660 


JSR 

PCiGETNXT 

(get character after coms 

92 

93 

94 

147546 

000752 



BR 

It 

(deposit another bate 

147550 

013737 

007334 

007756 

2t! MOV 

MADVABRiMtADDR! update current address 

95 

96 

147556 

000571 



BR 

VCON 


97 

98 

147560 

013737 

007756 

007334 

$.word::mov 

MtABDRiMADVADRiget a scratch copy of current address 

99 

147566 

004767 

174730 


it: jsr 

PCiGETEXP 

(get a value to be deposited 

100 

147572 

013704 

007334 


MOV 

BtADVADRiR4 

(get running address 

101 

147576 

004767 

004726 


JSR 

PC.ADRCH2 

(check that it's not in protected RAM 

102 

147602 

010524 



MOV 

R5i(R4H 

(deposit a word 

103 

147604 

010437 

007334 


MOV 

R4iMADVADR 

(advance running copa of current address 

104 

147610 

120027 

000054 


CMPB 

R0.4054 

iis next character a cornua? 

105 

147614 

001003 



BNE 

2t 

(no 

106 

147616 

004767 

163604 


JSR 

PCiGETNXT 

(set character after co»»a 

107 

147622 

000761 



BR 

It 

(deposit another ward 

108 








109 

147624 

013737 

007334 

007756 

2t: MOV 

BtADVADRiABDRiupdate current address 

110 

147632 

000543 



BR 

VCON 


111 








112 








113 

147634 

004767 

174662 


tiBLKBiiJSR 

PCiGETEXP 

(get argument 

114 

147640 

106437 

007326 


MTPS 

BtCURCON 

(check if it contained undefined saebols 
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115 147644 

001146 



8NE 

VERR1 

lit did* refuse .BIKE directive 

116 147646 

060537 

007756 


ADD 

R5»<?«ABDR 

(add it to current address 

117 147652 

000533 



BR 

VCON 


118 







119 







120 147654 

004767 

174642 


4.BLKU1IJSR 

PC,GETEXP 

(det ardutent 

121 147660 

106437 

007326 


MTPS 

MCURCOH 

(check if it contained undefined sstbols 

122 147664 

001136 



BNE 

VERRl 

lit didr refuse ,BLXK directive 

123 147666 

010504 



MOV 

R5»R4 

(take a scratch cops 

124 147670 

006304 



ASL 

R4 

(double it 

125 147672 

060437 

007756 


ADD 

R4rM4ADDR 

(add it to current address 

126 147676 

000521 



BR 

VCON 


127 







128 







129 147700 

110037 

007345 


♦ .ASCIUHOVB 

ROiBIDELIM 

isave delititer 

130 147704 

013737 

007756 

007334 

MOV 

MIAODRrMADVADRtdet a scratch cops of current address 

131 147712 

004767 

163474 


141 JSR 

PC.6ETCHC 

(det next character* don't fold to upper case 

132 147716 

120037 

007345 


CNPB 

ROiWJELIH 

(have we reached delititer set? 

133 147722 

001417 



BEQ 

2» 

!sesr done 

134 147724 

113746 

007330 


MOVE 

8*TMPM0D»-(SP) 

ifoal ADRCMK into thinkind we are in bste »ode 

135 147730 

052737 

000200 

007330 

BIS 

♦F.BYTMiBtTMPMOD 

136 147736 

013704 

007334 


MOV 

MADVADR-R4 

(det runnind cops of current address 

137 147742 

004767 

004562 


JSR 

PCfADRCH2 

(check that it's not in protected RAM 

138 147746 

112637 

007330 


MOVE 

(SPH»e*TMPHOD 

(restore proper tode bits 

139 147752 

110014 



MOVE 

R0f?R4 

(deposit a bste 

140 147754 

005237 

007334 


INC 

MADVADR 

(advance runnind address 

141 147760 

000754 



BR 

It 


142 







143 147762 

013737 

007334 

007756 

2$: MOV 

MADVADRrBttADDRiupdate current address 

144 147770 

004767 

163432 


JSR 

PC.GEINXT 

(det character after delititer 

145 147774 

000462 



BR 

VCOH 


146 







147 







148 147776 

005237 

007756 


t.EVENUINC 

MIADDR 


149 150002 

042737 

000001 

007756 

BIC 

♦liBttADDR 


150 150010 

000454 



BR 

VCON 


151 







152 







153 150012 

005203 



4RPEAT;!INC 

R3 

(counteract earlier DEC R3 in this case 

154 150014 

004767 

174502 


JSR 

PCrGETEXP 

(det repeat count 

155 150020 

106437 

007326 


MTPS 

MCURCOM 

(check if it contained undefined sstbols 

156 150024 

001056 



BNE 

VERRl 

(it did* refuse REPEAT cottand 

157 150026 

005705 



TST 

R5 

(see if a repeat of zero was diven 

158 150030 

001450 



BEQ 

RERR 

(refuse zero 

159 150032 

120027 

000054 


CMPB 

R0t*054 

(check that a cotta follows 

160 150036 

001043 



BNE 

VERR 

(no cotta* errori tissind parsteter 

161 150040 

000167 

176232 


JMP 

EREP 

(do to repeat cottand line routine 

162 







163 







164 




.ENABL 

LSB 


165 150044 

005203 



move:: inc 

R3 

(counteract earlier DEC R3 in this case 

166 150046 

004767 

000006 


JSR 

PC,U 

(det address pair 

167 150052 

005303 



DEC 

R3 

(prepare to use <£SC> seouence rountine 

168 150054 

000167 

176304 


JMP 

EMOV 

(do to routine to tove a tetors block 

169 







170 150060 

004767 

174436 


lil JSR 

PCfGETEXP 

(det first address 

171 150064 

120027 

000137 


CMPB 

R0rtl37 

1is it followed bs an underline? 
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172 150070 

001026 



SHE 

VERR 

!no. kissing parameter 

173 150072 

010537 

007336 


(too 

R5»MSA VEXP 

.save the first address 

374 150076 

152737 

000010 

007324 

8ISB 

♦F.SAVX.MLINFLG.show we have saved sokething in SAVEXP 

175 150104 

004767 

163316 


JSR 

PCiOETNXT 

.Set character after underline 

176 150110 

000167 

174406 


JNP 

GETEXP 

.Set second address 

177 







178 







179 150114 

005203 



find:; inc 

R3 

{counteract earlier DEC R3 in this case 

180 150116 

004767 

177736 


JSR 

PC.lt 

.Set address pair 

181 150122 

120027 

000054 


CURB 

RO.4054 

iis it followed by a coiaa? 

182 150126 

001007 



BNE 

VERR 

{no. kissing parakter 

183 150130 

000167 

176424 


JNF 

EFND 

.So to routine to find 3 value (search keeory) 

184 




.DSABL 

LSB 


185 







186 







187 150134 

052737 

040000 

007706 

NOPROTIIBIS 

*F.PRDT>MFLAGS11 turn off lonitor scratch protection 

138 






{fall into VCON 

189 150142 

000167 

173450 


VCON! JNP 

CHON 6 

.continue parsing 

190 







191 150146 

000167 

173012 


VERR! JNP 

CK0N2 

{general error 

192 







193 150152 

012702 

151412 


rerr: hdv 

♦REPOFO.R2 

.repeat of zero error 

194 150156 

000167 

173030 


JNP 

ERROR 


195 







196 150162 

012702 

151372 


VERR11 NOV 

♦UNDEFX.R2 

{undefined expression error 

197 150166 

000167 

173020 


JNP 

ERROR 


198 







199 150172 

042737 

040000 

007706 

PROTEC:1 Die 

♦F.PfiOT.MFtAOSllturn on tonitor scratch protection 

200 150200 

000760 



BR 

VCON 


201 







202 150202 

052737 

100000 

007706 

passu ; bis 

♦F.PAS1.MFLAGS1 

{show we are in PASS1 lode 

203 150210 

000754 



BR 

VCON 


204 







205 150212 

042737 

100000 

007706 

PASS211 BIC 

4F.PASl.MFLAGSl.show we are in PASS2 lode 

206 150220 

000750 



BR 

VCON 


207 







208 







209 150222 

032737 

004000 

007706 

host:: bit 

♦F.HOST.MFLABSliare we already in host »ode? 

210 -150230 

001346 


% 

BNE 

VERR 

lyes. error 

211 150232 

105037 

007672 


CLRB 

0*HFP 

.initialize host input buffer 

212 150236 

105037 

007673 


CLRB 

MHSTFLG 

land host flags 

213 150242 

004767 

164656 


JSR 

PC.SETAX2 

{ketch eux port baud rate to console port 

214 150246 

052737 

004000 

007706 

BIS 

tF.HOST.MFLAGSl 

.set host kode 

215 150254 

105737 

177550 


TSTB 

84A4SBUF 

{discard any garbage in the port 

216 150260 

012737 

134540 

000120 

NOV 

♦HQSTIN.MAUXIN 

ihooF up host input service routine 

217 150266 

11273? 

000046 

007711 

NOVB 

♦046.MAUXFLG 

{save a new copy of A4CREG value 

218 150274 

112737 

000046 

177452 

NOVB 

*046»MAtCREG 

{enable aux port receiver interrupt 

219 150302 

000167 

173304 


JNP 

CONTIN 

.recover character in RO 

220 







221 







222 150306 

10573? 

007673 


NOHOST:1TSTB 

MHSTFLG 

.are we in host load kode? 

223 150312 

100715 



BNI 

VERR 

.yes. refuse NOHOST cokkand 

224 150314 

10503? 

007673 


CLRB 

MHSTFLC 

.clear host flags 

225 150320 

112737 

000042 

007711 

NOVB 

I042.MAUXFLG 

{save a cops of new AtCREG value 

226 150326 

112737 

000042 

177452 

NOVB 

*042.MAtCR£G 

{disable aux port receiver interrupt 

227 150334 

042737 

004000 

007706 

BIC 

*F,HOST.MFLAGSi:show we are riot in host iiode 

22B 150342 

00067? 



BR 

VCON 
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229 

230 


231 

150344 

056 

123 

124 

I.STRT! 

•ASCII 

/.START/ 

.string to latch for enabling of load lode 


150347 

101 

122 

124 





232 

150352 

015 

012 


option: 

•BYTE 

015i012 

KCR>. <LF> 

233 

150354 

105 

040 

050 


•ASCIZ 

/£ (EXIT). R (RESUME). B (SEND BREAK), "A (SEND 'A) V 


150357 

105 

130 

ill 






150362 

124 

051 

054 






150365 

040 

122 

040 






150370 

050 

122 

105 






150373 

123 

125 

115 






150376 

105 

051 

054 






150401 

040 

102 

040 






150404 

050 

123 

105 






150407 

116 

104 

040 






150412 

102 

122 

105 






150415 

101 

113 

051 






150420 

054 

040 

136 






150423 

101 

040 

050 






150426 

123 

105 

116 






150431 

104 

040 

136 






150434 

101 

051 

040 






150437 

077 

000 






234 

150441 

000 




.BYTE 

0 

.because the linker won't zero fill 

235 









236 






•ENABL 

LSD 


237 

150442 




bload:: 




238 

150442 

032737 

004000 

007706 

load:: 

BIT 

*F.MOST»@*FLAGS1fis host lode enabled? 

239 

150450 

001410 




BEQ 

LERR 

!no. refuse LOAD coiiand 

240 

150452 

105737 

007673 



TSTB 

BIHSTFLG 

iare we in host load *ode? 

241 

150456 

100405 




BMI 

LERR 

Jses, refuse LOAD coiiand 

242 

150460 

152737 

000100 

007673 


BISB 

IF .LOST .MMSTFLGishow we want to start loading upon .START 

243 

150466 

005002 




CLR 

K2 

.initialize index to latch .START string 

244 

150470 

000417 




BR 

TALKl 


245 









246 

150472 

032737 

020000 

007706 

lerr: 

BIT 

If.TBAS.BIFLAGSlIare we running Tins Basic? 

247 

150500 

001622 




BEO 

VERR 

ino 

248 

150502 

000207 



12$: 

RTS 

PC 

return to BASIC 

249 









250 

150504 

032737 

004000 

007706 

talk:: 

BIT 

IF.HGST.eiFlAGSlris host tode enabled? 

251 

150512 

001615 




BED 

VERR 

jno. refuse LOAD ccMand 

252 

150514 

105737 

007673 



TSTB 

eiHSTFLG 

iare we in host load aode? 

253 

150520 

100612 




SMI 

VERR 

iaes. refuse TALK coiiand 

254 

150522 

142737 

000100 

007673 


BICB 

IF.LOST,PIHSTFLGfshow we want to ignore .START 

255 









256 

150530 

106427 

000300 


TALKl! 

MTPS 

♦300 

idisable interrupts except console break 

257 

150534 

005737 

177562 



TST 

8ICIRBUF 

.clear ana garbage in the ports 

258 

150540 

105737 

177550 



TSTB 

MAIRBUF 


259 

150544 

004767 

162754 



JSR 

PC.CRIF 

.start a new line 

260 

150550 

112737 

OOOOU 

177444 


MOVB 

♦Oll.BIPIPORC 

.turn on LED during virtual teriinal operation 

261 









262 

150556 

004767 

000364 


6$: 

JSR 

PC.CLRAPE 

.clear aux port error 

263 

150562 

105737 

177560 


it: 

TSTB 

MCMfCSR 

.user tspe a character? 

264 

150566 

100017 




BPL 

21 

ino 

265 

150570 

113701 

177552 



MOVB 

RIAfSREG.Rl 

icheck host port status 

266 

150574 

000240 




NOP 


ill* place holder for the above line ttt 

267 

150576 

006201 




ASR 

R1 
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268 150400 

103012 




BCC 

2$ 

(CTS not asserted or transiitter not eaetu 

24? 150402 

013700 

177562 



NOV 

e*c$RBtir.RO 

.get character fro* console 

270 150404 

100407 




BMI 

2$ 

.ignore error characters 

271 1S0410 

042700 

177600 



BIC 

♦1776OC.R0 

(take sure no parity bit set 

272 150414 

120027 

000001 



CMPB 

ROt*l 

iis it "A ? 

273 150420 

001450 




BEO 

3$ 

iues. exit talk *ode 

274 150422 

110037 

177450 


9$! 

MOVB 

RQ.8#A$X8UF 

(no. output character to host 

275 








274 150424 

113701 

177552 


21 i 

NOVB 

MASSREG.Rl 

.check host port status 

277 150432 

132701 

000002 



BITS 

♦Q02.R1 

ido we have a character ? 

278 150436 

001751 




BEG 

1$ 

!no 

27? 150640 

113700 

177550 



NOVB 

MAtRBUF .RQ 

.get character fro* host 

280 150644 

042700 

177400 



BIC 

♦177400.RC 

.prevent sign extend 

281 150650 

132701 

000170 



BITB 

♦170.R1 

(is it break or an error? 

282 150654 

001340 




BNE 

6$ 

.yes. ignore character 

283 150454 

132737 

000100 

007673 


BITB 

*F, LOST. MNSTFLG»are we looking for .START? 

284 150664 

001420 




BEG 

5$ 

(no 

285 150446 

010001 




MOO 

R0.R1 

'.take a scratch copy of character 

286 150670 

005702 




1ST 

R2 

(don't fold the period 

287 150672 

001402 




BCQ 

14$ 


288 150474 

042701 

000040 



BIC 

I040.R1 

(fold lower ease to upper case 

289 150700 

120162 

150344 


14$: 

CMPB 

R1»$.STRT<R2) 

(does character »alch? 

290 150704 

001007 




BNE 

4$ 

(no. go back to the in .START and try again 

291 150706 

005202 




INC 

R2 


292 150710 

020227 

000006 



CMP 

R2.46 

(have we *atched entire string? 

293 150714 

103404 




BLQ 

5$ 

(no. continue with next character 

294 150714 

110037 

177566 



MOVB 

RQ.84C$X8tJF 

(send the character without delay! 

295 150722 

000470 




BR 

7$ 

(a »atch. start loading 

296 








297 150724 

005002 



4$: 

CLR 

R2 


298 150726 

105737 

177564 


5$: 

TSTB 

MMXCSR 

(is console port ready for a character 

299 150732 

100313 




BPL 

1$ 

(no. drop character 

300 150734 

110037 

177566 



MOVB 

RO.0fC$XBLIF 

(yes. echo character to console 

301 150740 

000710 




BR 

1$ 


302 








303 150742 

012701 

150352 


3$: 

NDV 

♦0PT1DN.R1 

(point to »essase 

304 150746 

004767 

163002 



JSR 

PCfPRINTA 

(print ASCII string on console 

305 150752 

105737 

177560 


B$: 

TSTB 

MCIRCSR 

(wait for a character 

306 150756 

100375 




BPL 

8$ 


307 150760 

013700 

177562 



MOV 

8»C$RBt(F,R0 

(get character fro* console 

308 150764 

100772 




BMI 

8$ 

(character caused an error, try again 

309 150766 

042700 

177600 



BIC 

#177600 rRO 

(»ake sure no parity bit set 

310 150772 

110037 

177566 



MOVE 

RO.MC$XBUF 

(echo character to console 

311 150776 

120027 

000001 



CMPB 

RO»*i 

(is it "A? 

312 151002 

001707 




BEG 

9$ 

(yes. send it to host 

313 151004 

042700 

000040 



BIC 

404O.R0 

(fold lower case to upper 

314 151010 

120027 

000102 



CMPB 

R0.4102 

(is it B? 

315 151014 

001012 




BNE 

10$ 

(no 

316 151016 

012701 

100000 



MOV 

♦lOOOOO.RI 


317 151022 

112737 

000057 

177452 


MDVB 

♦057.B4ASCREG 

isend break 

318 151030 

077101 



n$: 

SOB 

Rl.. 

(wait a while 

319 151032 

'112737 

000047 

177452 


MDVB 

»047,?#A$CREG 


320 151040 

000650 




BR 

1$ 

iresuie two-way co»»unication 

321 








322 151042 

120027 

000105 


io$: 

CMPB 

R0.4105 

(is it E 7 

323 151046 

001245 




BNE 

1$ 

(no. resuie cotiunication 

324 151050 

112737 

000010 

177444 


NOVB 

#010rW$PORC 

(turn off LED indicator 
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325 

151056 

112737 

000046 

177452 


MOVE 

♦046(MA4CREG 

(disable aux port transmitter interrupt 

326 

151064 

106427 

000000 



MIPS 

♦000 

!reenable interrupts 

327 

151070 

032737 

020000 

007706 


BIT 

♦F.TBAS»R4FLAGSlfare we running Tiny Basic? 

328 

151076 

001201 



1341 

SHE 

124 

lues? return to BASIC 

329 

330 

331 

151100 

000167 

172112 



JMP 

CM0N3 

ireturn to console monitor 

151104 

152737 

000200 

007673 

741 

BISB 

♦F.LOADrMKSTFLGiset host load mode 

332 

151112 

112737 

000010 

177444 


HOVB 

#010i8#P4PORC 

iturn off LED indicator 

333 

151120 

112737 

000046 

177452 


HOVE 

♦046.RIA4CREG 

(disable aux port transmitter interrupt 

334 

151126 

106427 

000000 



MTPS 

♦000 

freenable interrupts A.S.A.P. 

335 

151132 

032737 

020000 

007706 


BIT 

♦F.TBASiMFLAGSlfare we running Tiny Basic? 

336 

151140 

001356 




BNE 

134 

ryesi return to BASIC 

337 

338 

339 

151142 

000167 

172056 



JMP 

CH0N31 

(return to console monitor 

151146 

112737 

000067 

177452 

CLRAPE! 

HOVB 

♦067.MA4CREG 

(dear aux port error flags 

340 

151154 

112737 

000047 

177452 


HOVB 

♦047.84A4CREG 

Sasser DTR( RTS» enable aux port x»it and recv 

341 

151162 

000207 




RTS 

PC 


342 






.DSABL 

LSB 
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1 


2 




.SBTTL 

Swbol and Label Handling Routines 

i 

4 




.ENADL 

LSB 


5 151144 

132737 

000002 

007327 DOSYMBIIBITB 

BF.VALUpMLASCOMp check that last *co»»and' was not valued 

4 151172 

001423 



BEQ 

3$ 

iw3s evaluatedi error 

7 151174 

010237 

007334 


MOV 

R2?B*ADVADR 

(store index here 

8 151200 

004767 

142222 


JSR 

PCpGETNXT 

(get next teaningful character aTter - 

9 151204 

104437 

007332 


MTPS 

MEXPFLG 

(see what kind of swtbol we are definins 

10 151210 

100434 



BMI 

1$ 

iuser defined nate 

11 151212 

103413 



BCS 

3$ 

(was a tnetonic? directive? or verb—error 

12 151214 

004747 

173302 


JSR 

PCpGETEXP 

(get value to be eauated 

13 151220 

106437 

007324 


MTPS 

MCURCOH 

icheck if it contained undefined svibols 

14 151224 

001010 



BNE 

13$ 

pit didt refuse sutbol definition 

15 151224 

013702 

007334 


MOV 

MADVABRrR2 

(get back index 

14 151232 

020227 

000054 


CMP 

R2p*DSYNUR-DSYHS(what is na»e? 

17 151234 

103407 



BLQ 

4$ 

(R0 thrown . 

18 151240 

101012 



BHI 

5$ 

FBI through B4 

19 151242 

20 

21 151244 

000167 

171714 

3$: 

JMP 

CM0N2 

felse show error 

012702 

151372 

13$: 

MOV 

♦UNDEFX?R2 

(undefined expression error 

22 151252 

23 

000167 

171734 


JMP 

ERROR 


24 

25 151254 

004202 


4$: 

ASK 

R2 

i*ake a word index 

24 151240 

010562 

007732 


MOV 

R5j$R0(R2) 

iset appropriate register? watchpoiritp or * 

27 151244 

28 

000404 



BR 

4$ 


29 

30 151244 

042705 

000001 

5$: 

BIC 

*1»R5 

pbreakpoints have even addresses 

31 151272 

010542 

007700 


MOV 

R5pBRKFIL-<DSYMURF 4-I(SYMS><R2) rset approprite breakpoint 

32 151274 

000167 

172314 

6$: 

JMP 

CM0N6 


33 

34 151302 

102021 


i$: 

8VC 

2$ 

(sutbol already defined 

35 151304 

013746 

007320 


MOV 

MTBtTOPHSP) 

(save nate of sstbol we are defining 

34 151310 

013746 

007322 


MOV 

MTBLTOP+2i-{SP) 

37 151314 

004747 

173202 


JSR 

PCiOETEXP 

(get value to be set 

38 151320 

106437 

007324 


MTPS 

BtCURCOM 

(check if it contained undefined sstbols 

39 151324 

001006 



BNE 

12$ 

lit didp ignore sstbol definition 

40 151324 

010504 



MOV 

R5.R4 

(get value to be set 

41 151330 

012637 

007322 


MOV 

(SP)Fi8tTBLT0F+2!recover nsie 

42 151334 

012637 

007320 


MOV 

(SP)FfMTBLTOP 


43 151340 

44 

45 151342 

000444 



BR 

9$ 


022426 


12$: 

CMP 

(SP)4»(SP)+ 

(pop saved nate 

44 151344 

47 

48 151346 

000754 



BR 

6$ 

(Quietly ignore sytbol definition 

010446 


2$: 

MOV 

R4t-(SP) 

(save present value of sytbol 

49 151350 

004767 

173146 


JSR 

PCpGETEXP 

!3et value to be set 

50 151354 

106437 

007326 


MTPS 

84CURC0M 

(check if it contained undefined sytbols 

51 151340 

001332 



BNE 

13$ 

(it did? refuse sytbol definition 

52 151362 

010504 



MOV 

R5pR4 

(put value in R4 

53 151344 

022604 


io$: 

CMP 

(SP)FpR4 

(see if sytbol or label is being changed 

54 151364 

001325 



BNE 

3$ 

(it isp which is not permitted 

55 151370 

000742 



BR 

6$ 

(no change? so auietla ignore cottand 


54 

57 151372 102544 020071 054114 UNDEFX! .RAD50 /UNDEFINED EXPRESSION/ 
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151400 

000340 

063325 

074701 




151406 

057760 






58 151410 

000000 



.WORD 

0 


5? 151412 

070530 

017574 

001136 

REPOF01 .RAD50 

/REPEAT OF ZERO/ 

151420 

002025 

071330 





60 151424 

000000 



.WORD 

0 


□ 1 

62 151426 

132737 

000002 

007327 

D0LABL11BITB 

♦F.VALU.MLASCOfl 

63 151434 

001702 



BED 

3* 


64 151436 

004767 

161764 


J5R 

PCrGETNXT 


65 151442 

106437 

007332 


MTPS 

0*EXPaG 

.see what Rind of label we are defining 

66 151446 

100275 



BPL 

3* 

.predefined syebols can't be labels 

67 151450 

102037 



8VC 

8* 

.user nate already defined 

68 151452 

013704 

007756 


MOV 

?**ADDR.R4 

.set value to be set 

69 

70 151456 

013702 

007462 


9*1 MOV 

RtTBLBOT >R2 

.Set botto» of symbol table 

71 151462 

162702 

000006 


SUB 

I6.R2 

iso down one entry 

72 151466 

020227 

006500 


CMP 

R2.HUR 9is there space for new entry? 

73 151472 

101011 



8HI 

lit 

.yes 

74 151474 

012702 

151504 


MOV 

♦TBLFUL.R2 

.point to iessaSe 

75 151500 

000167 

171506 


JMP 

ERROR 

.print error eessade 

76 151504 

076452 

045710 

024324 

TBLFUL! .RAD50 

/TABLE FULL/ 


151512 

045400 






77 151514 

7ft 

000000 



■ WORD 

0 


/O 

7? 151516 

106427 

000340 


ms MTPS 

♦340 

i*ake sy#bol table alterations atoiic 

80 151522 

010237 

007462 


MOV 

R2.MTBL80T 

‘.by blocking console break, etc. 

81 151526 

013722 

007320 


MOV 

gtTBLTOP. (R2H 

.store first word of na»e 

82 151532 

013722 

007322 


MOV 

etTBLTOP+2* (R2)+»arid second word 

83 151536 

010422 



MOV 

R4.(R2)F 

.store syabol's value 

84 151540 

106427 

oooooo 


MTPS 

♦000 

.restore interrupt service 

85 151544 

000167 

172042 


JMP 

COMTIN 

.recover character in RO. Set next cowiar.d 

86 

87 151550 

010446 



8*1 MOV 

R4.-(SP) 

.save present value of label 

80 151552 

013704 

007756 


MOV 

@t*ABDR»R4 

.get current address, which is value to be set 

89 151556 

000702 



BR 

10* 


90 




.DSABL 
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1 

2 

3 

4 

5 
4 

7 

8 

9 

10 
n 
12 

13 

14 

15 
14 

17 

18 

19 

20 
21 
22 

23 

24 

25 
24 

27 

28 

29 

30 

31 

32 

33 

34 

35 
34 

37 

38 

39 

40 

41 

42 

43 


»++ 

1 6ETSYM latches a new naie to the syibol table. 


151540 

013702 

007442 

getsvm:jmov 

@#TBLB0T »R2 

•start searchins at bottoa of table 

151544 

020227 

007320 

2(1 

CMP 

R2.4TBLT0P 

tans lore entries 7 

151570 

103403 



BLO 

It 

lues 

151572 

005004 



CLR 

R4 


151574 

000277 



see 


iflas naie not found 

151574 

000207 



RTS 

PC 


151400 

022237 

007320 

it: 

CMP 

(R2H.MTBLT0P 

.does first word of naie eatch? 

151404 

001007 



BNE 

3t 

• no 

151404 

022237 

007322 


CMP 

(R2HrP4TBLT0P+2isecond word latch? 

151412 

001005 



BNE 

4t 

•no 

151414 

012204 



MOV 

(R2H.R4 

•Set value 

151414 

000270 



SEN 


•show this is a user defined syibol 

151420 

000242 



CLV 


•and that is has a value 

151422 

000207 



RTS 

PC 


151424 

005722 


3t: 

TST 

<R2H 


151424 

005722 


4(1 

TST 

!R2)+ 

•advance to next entry 

151430 

000755 


i+4 

BR 

2t 





i 

MATSYM latches the nuiber in R1 to syibol values, starting with the lost 




» 

recently defined. Returns 

a pointer in R2 if latched. Returns N set if 




? 

i — 

no latch. 



151432 

132737 

000002 

007330 MATSYM11BITB 

♦F.ABS.MTMPMOO 

•absolute lode? 

151440 

001013 



BNE 

it 

•yes. indicate no latch 

151442 

013702 

007442 


MOV 

B4TBLB0T.R2 

•set bottoi of table 

151444 

020227 

007320 

2(1 

CMP 

R2.tTBLT0P 

•any lore entries? 

151452 

103004 



BHIS 

it 

• no 

151454 

024201 

000004 


CMP 

4<R2)iRl 

•do we have a latch? 

151440 

001404 



BEQ 

3t 

•yes 

151442 

042702 

000004 

4(1 

ADD 

44.R2 

•so to next naie 

151444 

000747 



BR 

2t 


151470 

000270 


it: 

SEN 



151472 

000207 


3t: 

RTS 

PC 
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1 m 


2 

3 





r 

r— 

DEL5YM deletes the syibol table entry just below R2. 

4 

5 

151474 

042737 

000006 

007442 

DELSYMliADB 

♦6i?#TBIBOT 


4 

151702 

020237 

007442 


2*1 

CMP 

R2.MTBLB0T 

(done yet? 

7 

151704 

101001 




BHI 

14 

inor »ove up all lower entries 

B 

151710 

000207 




RTS 

PC 


9 

10 

151712 

014242 

177770 


i*i 

MOV 

-10(R2)r-(R2) 

Slave three words for each entry 

11 

151716 

016242 

177770 



MOV 

-10(R2)HR2) 


12 

151722 

016242 

177770 



MOV 

-10(R2)r-(R2) 


13 

14 

15 

151726 

000765 



jH 

BR 

24 


16 





f 

TYPREG tsees the contents of registers RO through PS arid the watchpoint 

17 





1 

address 

and contents if the address is not zero. 

IS 

1? 





J — 




20 

151730 

112737 

000011 

007340 

typreg;imovb 

t?.i?ICOUNTl 

icount 9 registers 

21 

151736 

012737 

156142 

007334 


MOV 

♦BSTMS»04ABVAPR 

(borrow ABVADR as 3 pointer 

22 

151744 

004767 

161554 


14; 

JSR 

PC.CRIF 

istart a new line 

23 

151750 

013702 

007334 



MOV 

MADVABR.R2 


24 

151754 

004767 

162014 



JSR 

PC.PRINT2 

(type naie of register 

25 

151740 

010237 

007334 



MOV 

R2iMADVADR 


26 

151764 

162702 

156144 



SUB 

IDSYMS44.R2 

iso back to resister naie 

27 

151770 

004767 

173674 



JSR 

PC.PBSVAL 

(Set contents of reSister 

28 

151774 

012700 

020075 



MOV 

440010404075(RO 

jtype = <SPace> 

2? 

152000 

004767 

161524 



JSR 

PCiCHROUT 


30 

152004 

010401 




MOV 

R4.R1 

(Set resistor contents 

31 

152006 

004767 

003064 



JSR 

PCrTYPNMl 

(type numerically 

32 

152012 

105337 

007340 



BECB 

MC0UNT1 


33 

152014 

001352 




BNE 

\ 14 


34 

152020 

013704 

007754 



MOV 

M4«ATCH(R4 

(Set watchpoint address 

35 

152024 

001404 




BEQ 

24 

fwatchpoint not set 

36 

152026 

004767 

003216 



JSR 

PCiTYPADR 

(type watchpoint address 

37 

152032 

000167 

003054 



JMP 

TYPL01 

Hype in current sod® 

38 

39 

40 

152034 

000207 



24! 

RTS 

PC 






;+t 




41 





J TYPTBL types the entire user 

syibol table. 

42 





?- 




43 









44 

152040 

016746 

03S264 


typtbl::mov 

TNPHODHSP) 

(take syibols show up in word lode 

45 

152044 

042767 

000200 

035256 


BIC 

IF.BYTMjTHPMOD 

» 

46 

152052 

013702 

007462 



MOV 

B4TBLB0TiR2 

(start at the bolto* of the table 

47 

152056 

020227 

007320 


7$: 

CMP 

R2»#TBLTOP 

idone yet? 

48 

152062 

103003 




BHIS 

14 

lyes 

4? 

152064 

004767 

000012 



JSR 

PCfTYPSYM 

(type the naie and value of one suibol 

50 

152070 

000772 




BR 

74 


51 

152072 

022667 

035232 


14 

MOV 

(SPltiTHPMOtl 

!eut back to watever *ode it was in 

52 

53 

54 

152076 

000147 

171502 



JMP 

CM0N5 

(Set next conand 

152102 

004747 

161416 


typsyh:;jsr 

PC.CRLF 

istart a new line 

55 

152104 

004767 

161662 



JSR 

PCiPRINT2 

(type symbol naie 

56 

152112 

012700 

020075 



MOV 

44004040+075.RC 

Itype = sspace) 

57 

152116 

004767 

161406 



JSR 

PCtCHROUT 
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53 152122 

012201 

MOV 

(R2H.R1 

iget value 

59 152124 

000167 002746 

JMP 

TVPNH1 

.type it numerically 
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1 

2 .SPTTL Arithmetic Routines 

3 


4 

152130 

050405 

logor:i bis 

R4.R5 


5 

152132 

000207 

RTS 

PC 


6 

7 

152134 

005104 

L0GANB!!C0H 

R4 


8 

152136 

040405 

BIC 

R4.R5 


9 

10 

11 

152140 

000207 

RTS 

PC 


152142 

010500 

HULTJPilMOV 

R5.R0 

.make a copy of first factor 

12 

152144 

005005 

CLR 

R5 

.clear accumulator 

13 

152146 

060005 

It! ADD 

R0.R5 

.multiply by successive addition 

14 

152150 

077402 

SOB 

R4.lt 

.count down second factor 

15 

16 

17 

152152 

000207 

RTS 

PC 


152154 

060405 

ADDITli ADO 

R4.R5 


18 

1 ? 

20 

152156 

000207 

RTS 

PC 


152160 

160405 

SUBTRJ1 SUB 

R4.R5 


21 

22 

152162 

000207 

RTS 

PC 


23 

152164 

005000 

DIVIO!! CLR 

RO 

•initialize Quotient 

24 

152166 

005704 

TST 

R4 

.are we dividing by zero? 

25 

152170 

001403 

BEG 

2 t 

.yes. return 177777 

26 

152172 

005200 

It! INC 

RO 

.increment Quotient 

27 

152174 

160405 

SUB 

R4.R5 

Itry subtracting divisor from dividend 

28 

152176 

103375 

BCC 

It 

.successful, no underflow 

29 

152200 

010005 

2t! MOV 

R0.R5 

.replace accumulator with Quotient 

30 

152202 

005305 

DEC 

R5 

.adjust for excessive increment of RO 

31 

152204 

000207 

RTS 

PC 
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1 

2 

3 

4 

5 

6 

7 

8 

9 152206 010446 

10 152210 004767 

11 152214 006202 

12 152216 006202 

13 152220 010437 

14 152224 142737 

15 152232 012624 

16 152234 010437 

17 152240 105037 

18 152244 116201 

19 152250 006201 

20 152252 006201 

21 152254 042701 

22 152260 004771 

23 152264 013737 

24 152272 000167 

25 

26 152276 153172 

27 152300 143164 

28 152302 152770 

29 152304 153152 

30 152306 153024 

31 152310 152724 

32 152312 153016 

33 152314 153006 

34 152316 152714 

35 152320 153102 

36 

37 

38 152322 004767 

39 152326 100414 

40 152330 103413 

41 152332 004767 

42 152336 020227 

43 152342 103006 

44 152344 006202 

45 152346 006202 

46 152350 060237 

47 152354 000250 

48 152356 000207 
*9 

50 152360 000270 

51 152362 000207 

52 

53 

54 152364 120027 

55 152370 001005 

56 152372 062737 

57 152400 004767 
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.SBTTL Instruction Encode/Decode Routines 

m 

i 6ET1NS takes an index to a mnemonic in R2t and the ineionic's base value 

! in R4, It parses any needed operands and stores the resulting code at the 

> current address. 




GETItiSllMOV 

R4.-1SP) 

Isave the base opcode value 

002310 


JSR 

PCiADRCHl 

Icheck that it's even and in user RAM 



ASR 

R2 

liake a byte index 



ASR 

R2 

Ifor the PARAMS table 

007336 


MOV 

R4.MSAVEXP 

isave opcode address here 

000010 

007324 

8ICB 

If .SAVKfMUNFLGtPrevent interference with ncnal use of SAVEXP 



MOV 

(SPHi (R4)t 

(store base opcode value 

007334 


MOV 

R4.84ADVADK 

Ifirst operand address 

007342 


CLRB 

8IM0DE 

1initialize addressing tode scratch 

156034 


HOVB 

PARAMS(R2)?Ri 

I4et format code 



ASR 

R1 

.lake a word index 



ASR 

RI 


177741 


BIC 

*177741,R1 

liask out the garbage 

152276 


JSR 

PC,8INSDSP(R1) 

* set appropriate operand seouence 

007334 

007756 

MOV 

BIADVADR.8I4ADDRiupdate current address 

171314 


JMP 

CGMTIM 

.recover next character, parse next coiiand 



INSDSP1 .WORD 

CONCOD 

iOO leans decode condition codes 



.WORD 

CM0N2 

101 leans not an instruction 



.WORD 

JNSDON 

102 leans no paraieters 



«k)0RC 

EMTRAP 

103 leans NNN for EMT and TRAP 



.WORD 

BRDISP 

104 leans 8-bit branch displaceient 



.WORD 

REGDST 

>05 leans R.DD for JSR and XQR 



.WORD 

OPRAND 

106 leans SS or DD 



.WORD 

SRCDST 

107 leans SS.DD 



.WORD 

RTSREG 

110 leans R for RTS 



.WORD 

SOBDSP 

111 leans R.NN for SOB 



.ENABL 

LSB 


173122 


getrcg::jsr 

PCiGETWAM 

Iparse a syibolic naie 



BMI 

31 

.user defined naie. error 



BOS 

34 

linstruction tneionic. error 

161050 


JSR 

PC.GETLCH 

iget next character in RO 

000040 


CMP 

R2.IDSfHPS-DSYMS.is it RO through PC? 



BH1S 

31 

ino. error 



ASR 

R2 

.get register nuiber 



ASR 

R2 


007342 


ADD 

R2.8IMQDE 

Iput it in bottoi 3 bits of addressing lode 



CLN 





RTS 

PC 




3*1 SEN 





RTS 

PC 



000100 

FULOPRJICMPB 

R0.I100 

1 is first character 8? 


BNE 

51 

Ino 

OCOOl0 007342 

ADD 

H0.8IMODE 

lues, deferred lode 

161022 

JSR 

PC.GETNXT 

!Set character after 8 
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58 

152404 

004747 

001672 


541 

JSR 

PCiRABEH 

(light it be a register na»e? 

59 

152410 

100407 




BN! 

64 

inoi definitely not a register 

40 

152412 

010044 




MOO 

RO»-< SP > 

isave character 

41 

152414 

010344 




MOV 

R3i-(SP) 

isave running pointer 

42 

152414 

004747 

177700 



JSR 

PCiGETREG 

iand try to Set a resister nate 

43 

152422 

100044 




BPL 

74 

(successful 1 «ode 0 or 1 

44 

152424 

012403 




MOV 

(SPH.R3 

(restore running pointer 

45 

152424 

012400 




MOV 

(SPH.RO 

(restore character in RO 

44 

152430 

120027 

000050 


64! 

CMPB 

R0i*050 

(is it (? 

47 

152434 

001445 




BEQ 

44 

isesi »ode li 2r or 3 

48 

152434 

120027 

000055 



CMPB 

R0,*055 

(is next character -? 

49 

152442 

001011 




BNE 

94 

(no definitely not autodecreient 

70 

152444 

010346 




MOV 

R3i-(SP> 

isave running pointer 

71 

152444 

004767 

160754 



JSR 

PCiGETNXT 

(Set character after - 

72 

152452 

120027 

000050 



CMPB 

R0»*050 

iis it 17 

73 

152454 

001430 




BEQ 

104 

(yesi code 4 or 5 

74 

152440 

012603 




MOV 

(SPH.R3 

(restore running pointer 

75 

152442 

012700 

000055 



MOV 

*055iRO 

(restore - in RO 

74 

152444 

120027 

000043 


94: 

CMPB 

RQ»*043 

(IS it *9 

77 

152472 

001454 




BEQ 

114 

(yesi do mediate and absolute 

78 

152474 

004767 

000142 



JSR 

PCiGETARG 

(get an index or relative address 

79 

152500 

042737 

000060 

007342 


ADO 

*6QiB*MQBE 

(indexed addressing aode 

80 

152504 

120027 

000050 



CMPB 

R0i*050 

iis it an index? 

81 

152512 

001421 




BEQ 

124 

(yes 

82 

152514 

013704 

007334 



MOV 

MABVADR*R4 

(Set next operand address 

83 

152520 

143744 

007334 



SUB 

MADVADRi-(R4> 

(lake this operand a PC relative address 

84 

152524 

062737 

000007 

007342 


ADD 

*07ii*H0DE 

ii»plicit PC reference 

85 

Q/ 

152532 

000207 




RTS 

PC 


00 

87 

152534 

022426 



74! 

CMP 

<SP)4i(SP)4 

(discard saved character and running pointer 

88 

OC 

152534 

000207 




RTS 

PC 

(return lode 0 or 1 

07 

90 

152540 

062737 

000030 

007342 

104! 

ADD 

*30iMM0BE 

(for -(1 add 40 total to addressing node 

91 

152544 

005726 




TST 

<SP)4 

(discard saved running pointer 

92 

152550 

042737 

000010 

007342 

44! 

ADD 

tlOtOIMODE 

(for ( r add 10 to addressing »ade 

93 

152554 

004767 

140444 


124! 

JSR 

PCiGETNXT 

(set character after ( 

94 

152542 

004767 

177534 



JSR 

PC.BETREG 

(should be a register na*e 

95 

152544 

100501 




BMI 

21 

(not a register na*ei error 

94 

152570 

120027 

000051 



CMPB 

RQi*051 

(should be followed by ) 

97 

152574 

001076 




BNE 

24 

inoi error 

98 

152574 

004747 

160624 



JSR 

PCrGETNXT 

(Set character after ) 

99 

152402 

120027 

000053 



CMPB 

R0i*053 

iis it 4 T 

100 

152404 

001005 




BNE 

84 

(not done 

101 

152410 

062737 

000010 

007342 


ADD 

♦10r@*M0D£ 

i»ode 2 or 3 

102 

152414 

004767 

160604 



JSR 

PCiGETNXT 

(gel character after 4 

103 

152422 

000207 



84! 

RTS 

PC 


104 









105 

152424 

042737 

000027 

007342 

114! 

ADD 

*27 iRWODE 

(mediate! absolute are *odes 2 and 3 with PC 

104 

152432 

004767 

160570 



JSR 

PCiGETNXT 

(set character after * 

107 

152434 

000167 

000000 



JMP 

GETARG 

(store inediate data or absolute address 

108 









109 

152442 

004767 

171654 


getarb::jbr 

PCiGETEXP 

(get an argument in R5 

110 

152444 

013704 

007334 



MOV 

MADVADRiR4 

(get address of operand 

111 

152452 

004767 

001652 



JSR 

pCiAdrch; 

(check that we are still in user RAM 

112 

152454 

010514 




MOV 

R5.9R4 

(store arguient at operand address 

113 

152440 

062737 

000002 

007334 


ADD 

♦2tMADVADR 

iincrewnt address 

114 

152444 

000207 




RTS 

PC 
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115 

116 


117 152670 

120027 

000054 

comack: cmpb 

R0>I054 

!is first operand followed by a coiia? 

118 152674 

001036 


M 

2$ 

ino, error 

119 152676 

004767 

000042 

JSR 

PCtINSBNl 

istore first operand »ode 

120 152702 

004767 

160520 

JSR 

PC.GETNXT 

idet character after coiia 

121 152706 

105037 

007342 

CLRB 

MMODE 


122 152712 

000207 


RTS 

PC 


123 






124 152714 

004767 

177402 

RTSREGIIJSR 

PC,6ETREG 

idet a register nuiber 

125 152720 

100424 


Bfll 

21 

ierror, not a register name 

126 152722 

000416 


BR 

I NSDM2 

iadd it to opcode 

127 






128 152724 

004767 

177372 

REGDSTtlJSR 

PCiGETREG 

idet a redister nuiber 

129 152730 

100420 


BN I 

2$ 

ierror, not a redister naie 

130 152732 

004767 

177732 

JSR 

PCjCQMACH 

icheep for coua between operands 

131 152736 

004767 

177422 

J5R 

Pt.FULOPR 

idet a full operand 

132 152742 

000406 


BR 

INSDN2 


133 






134 152744 

113701 

007342 

IHS0N1: MDVB 

HMODE'Rl 

idet addressing lode bits 

135 152750 

000301 


SHAB 

R1 

♦shift it 6 bits to the left 

136 152752 

006201 


ASR 

R1 


137 152754 

006201 


asr 

R1 


138 152756 

000402 


BR 

1$ 


139 






140 152760 

113701 

007342 

INSDN2! MOV6 

HHODEiRl 

idet addressind lode bits 

141 152764 

060177 

034346 

it: ADD 

RlfBSAVEXP 

iadd the* to opcode 

142 






143 152770 

000207 


imsdon: RTS 

PC 


144 






145 152772 

000167 

170166 

2$: jnp 

CH0N2 


146 






147 152776 

012702 

153266 

20$: MOV 

♦BRANCH,R2 

ipoint to branch error lessade 

148 153002 

000167 

170204 

JMP 

ERROR 


149 






150 153006 

004767 

177352 

srcdst::jsr 

FC.FULOPR 

idet first operand 

151 153012 

004767 

177652 

JSR 

pc,cqnach 

icheck for cons between operands 

152 153016 

004767 

177342 

OPRAND:!JSR 

PCiFULOPR 

idet second operand 

153 153022 

000756 


BR 

INSDN2 

istore second operand *ode 

154 






155 






156 153024 

004767 

171472 

brdisp::jsr 

PCiGETEXP 

idet branch destination 

157 153030 

106437 

007326 

MTPS 

MCURCQM 

♦did expression contain undefined ssibols 7 

158 153034 

001402 


BED 

14$ 

ino, no problei 

159 153036 

013705 

007756 

MOV 

M$ADDR,fi5 

iyes, lake instruction 'BR so no ranse error 

160 153042 

163705 

007334 

14$: SUB 

MADVADR.R5 

fiake it relative 

161 153046 

006205 


ASR 

R5 

iiake it a word offset 

162 153050 

032705 

177600 

BIT 

♦177600,R5 

idoes upper byte latch bit 7 7 

163 153054 

001405 


BEO 

13$ 

iyes 

164 153056 

005105 


COM 

R5 


165 153060 

032705 

177600 

BIT 

♦177600,R5 


166 153064 

001344 


BNE 

20$ 

ino, branch rande error 

167 153066 

005105 


COM 

R5 


168 153070 

042705 

177400 

13$: BIC 

♦177400,R5 

iiake it an 8-bit nuiber 

169 153074 

060577 

034236 

ADO 

R5,(?SAVEXP 

iadd displacement to op-code 

170 153100 

000207 


RTS 

PC 


171 
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172 

153102 

004767 

177214 


sobdsp::jsr 

PC.6ETREG 

.Set register 

173 

153106 

100731 



MI 

24 

.error, not a register nate 

174 

153110 

004767 

1775S4 


JSR 

PCiCOMACH 

Jcheck for cotta between operands 

175 

153114 

004767 

171402 


JSR 

PC.GETEXP 


176 

153120 

106437 

007326 


MIPS 

MCURCOM 

.did expression contain undefined sstbols? 

177 

153124 

001402 



m 

214 

ino. no problee 

178 

153126 

013705 

007756 


MOV 

044ADDR.R5 

.yes. take instruction 'BR so no range error 

179 

153132 

163705 

007334 


214! SUB 

84ABVADR.R5 

.take it relative 

1 BO 

153136 

006205 



ASR 

R5 


181 

153140 

005405 



NEG 

R5 

fSOB instruction uses negated displacetent 

182 

153142 

032705 

177700 


BIT 

4177700.R5 

*6-bit displacetent 

183 

153146 

001313 



BNE 

204 

.range or direction error 

184 

153150 

000747 



8R 

134 


185 








186 

153152 

004767 

171344 


ENTRAP!!JSR 

PC.GETEXP 

.Set trae number 

187 

153156 

032705 

177400 


BIT 

4177400.R5 

.should be <256. 

188 

153162 

001303 



BNE 

24 

i>255.. error 

189 

153164 

000741 



BR 

134 


190 








191 

153166 

004767 

160234 

* 

191! JSR 

PC.GETNXT 

.Set character after co»»a 

192 

153172 

120027 

000103 


CDMCOBIICMPB 

R0.4103 

!R1 »ust be 0 when entering — is it C? 

193 

153176 

001003 



BNE 

164 


194 

153200 

052701 

000001 


BIS 

tl.Rl 

iset C bit 

195 

153204 

000421 



BR 

154 


196 

153206 

120027 

000126 


164! CMPB 

R0.4126 

iis it V? 

197 

153212 

001003 



SHE 

174 


198 

153214 

052701 

000002 


BIS 

42.R1 

.set V bit 

199 

153220 

000413 



BR 

154 


200 

153222 

120027 

000132 


174! CMPB 

R0.4132 

iis it Z? 

201 

153226 

001003 



BNE 

184 


202 

153230 

052701 

000004 


BIS 

44. R1 

.set Z bit 

203 

153234 

000405 



BR 

154 


204 

153236 

120027 

000116 


184! CMPB 

R0.4116 

iis it N? 

205 

153242 

001253 



BNE 

24 

ino. illegal character 

206 

153244 

052701 

000010 


BIS 

410.R1 

iset N bit 

207 








208 

153250 

004767 

160152 


154! JSR 

PC.GETNXT 

.Set next character 

209 

153254 

120027 

000054 


CMPB 

R0.4054 

iis it a cotta? 

210 

153260 

001742 



BEQ 

194 

iaes. Set sots tore 

211 

153262 

005301 



DEC 

R1 

.coieensate for opcode base value = 241 or 261 

212 

153264 

000637 



BR 

14 

iadd condition bits to opcode 

213 





.DSABL 

LSB 


214 








215 

153266 

007521 

054000 

001155 

BRANCH! .RAD50 

/BRANCH OUT OF RANGE/ 


153274 

076417 

022622 

004167 





153302 

017500 






216 

153304 

000000 



.UORD 

0 
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1 

2 

3 

4 


T1PINS decodes the instruction at address R4 and tapes it followed on the 
next line ba the next address. 


5 


4 

153304 

011405 


TVPIMSt JMOV 

9R4.R5 

(Set opcode 

7 

153310 

010500 



NOV 

R5.R0 


8 

153312 

004300 



ASL 

RO 

(Set bits 4 throush 13 

9 

153314 

004300 



ASL 

RO 


10 

153314 

000300 



SWAB 

RO 


11 

153320 

042700 

177700 


BIC 

♦I77700fRO 


12 

153324 

110037 

007342 


HOVB 

ROtetNone 

(store the* here for operand decode 

13 

153330 

005705 



TST 

R5 


14 

153332 

100027 



BPL 

54 

(not a bate aode instruction 

IS 

153334 

042705 

100000 


BIC 

♦lOOOOO.RS 

(first see if it's a bate »ode instruction 

14 

153340 

004747 

000130 


JSR 

PCf 14 

(»atch to table. Set index 

17 

153344 

004202 



ASR 

R2 


18 

153344 

105742 

154034 


TSTB 

PARAHS1R2) 


19 

153352 

100017 



BPL 

54 

(not bate *ode. do it norialla 

20 

153354 

004302 



ASL 

R2 

(restore R2 

21 

153354 

012405 



NOV 

(R4)4iR5 

(fix R4. restore R5 

22 

153340 

010244 



H3V 

R2.-1SP) 

(save index 

23 

153342 

004302 



ASL 

R2 

(»ake index to *ne*onic 

24 

153344 

042702 

154502 


ADD 

4HHEH5.R2 


25 

153370 

011201 



MOV 

9R2rRl 

(Set 3 chracter tnetonic 

24 

153372 

004747 

140404 


JSR 

PC.PRINT1 

(tape it 

27 

153374 

012402 



MOV 

(SPH.R2 

(restore R2 

29 

153400 

012701 

004200 


MOV 

45045042.K1 

(tape B <SP> 'SP> 

29 

253404 

004747 

140374 


JSR 

PC.PRINT1 


30 

31 

32 

153410 

000412 



BR 

44 


153412 

012405 


54! 

HOV 

(R4H.R5 

(Set opcode 

33 

153414 

004747 

000054 


JSR 

PC» 14 

(»atch to table 

34 

153420 

010244 



MOV 

R2f-(SF’> 

(save index 

35 

153422 

004302 



ASL 

R2 

(lake index to Masonic 

34 

153424 

042702 

154502 


ADD 

♦HNEHS.R2 


37 

153430 

004747 

140340 


JSR 

PC.PRINT2 

(tape Metonic 

38 

153434 

012402 



MOV 

(SPH.R2 

(set index back 

39 

153434 

012700 

000011 

44! 

MOV 

4011.R0 

(tape <tab> 

40 

153442 

004747 

140042 


JSR 

PC.CHROUT 


41 

153444 

004202 



ASR 

R2 

(take bate instruction index 

42 

153450 

114201 

154034 


HOVB 

PARAN$(K2>tKl 

(Set for»at code 

43 

153454 

004201 



ASR 

R1 


44 

153454 

004201 



ASR 

R1 


45 

153440 

042701 

177741 


BIC 

4177741.R1 

(■ask out the S3rbase 

44 

153444 

004771 

153514 


JSR 

PC.BIWTDSP(Rl) 

(tape operands 

47 

48 

49 

153470 

000147 

001554 


JNP 

TYPADR 

(tape next address and a tab 

153474 

012702 

000212 

141 

HOV 

4PARAHS-BASES-2.R2 (index last base value 

50 

153500 

020542 

155420 

34! 

CHP 

R5.BASES(R2) 

(coipare opcode to base value 

51 

153504 

103002 



BHIS 

44 

(•atch 

52 

153504 

005742 



TST 

-(R2) 

(keep lookins 

53 

153510 

000773 



BR 

34 


54 

55 
54 

153512 

000207 


44! 

RTS 

PC 


153514 

154132 


IKTDSP! 

.WORD 

TCONCB 

(CVZN 

57 

153514 

153540 



.WORD 

NOPCOD 

(14 bit value, not an opcode 
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58 153520 

153564 


.WORD 

INTDON 

irio operands 

59 153522 

153722 


.WORD 

TEMTRP 

.EMT and TRAP 

60 153524 

153734 


.WORD 

TBRDSP 

.8-bit displacetent 

61 153526 

153574 


.WORD 

TRGDST 

iR.DD 

62 153530 

153554 


.WORD 

TOPRNB 

iSS or DD 

63 153532 

153544 


.WORD 

TSRDST 

iSS.DD 

64 153534 

153566 


.WORD 

TRTSR6 

;r 

65 153536 

153676 


.WORD 

TSOBDS 

96-bit positive displacetent 

66 






67 



.ENABL 

LSB 


68 153540 

005744 


MOPCOD!!T5T 

-<R4) 

.back up to rwtber 

69 153542 

000553 


BR 

124 

.type it as data 

/V 

71 153544 

004767 

000200 

tsrdst::jsr 

PCiTFULOP 

itype an operand 

72 153550 

004767 

000026 

134! JSR 

PC.TC0HMA 

itype cotta 

73 153554 

004767 

000102 

toprwd::jsr 

PC.GETDST 

.Set bits C through 5 of opcode 

74 153560 

004767 

000164 

JSR 

PCtTFULDP 

.type operand 

75 153564 

000207 


intdom: RTS 

PC 


76 






77 153566 

004767 

000070 

TRTSRG1!JSR 

PC.6ETBST 


78 153572 

000421 


BR 

TREG1S 

itype resister nate 

79 






80 153574 

004767 

000036 

TRGDSTUJSR 

PC.TREGIS 

.type register 

81 153600 

000763 


BR 

134 

.type coMa and second operand 

82 






B3 153602 

012700 

000054 

TC0MNA1 MOV 

♦054iRO 


84 153606 

000167 

157716 

JMP 

CHROUT 


85 






86 153612 

012700 

000050 

TPRE615 MOV 

♦050.R0 

.type ( 

87 153616 

004767 

157706 

JSR 

PC.CHROUT 


8B 153622 

004767 

000010 

JSR 

PC.TREG1S 

itype register na*e 

89 153626 

012700 

000051 

MOV 

♦051.RO 


90 153632 

Of 

000167 

157672 

JMP 

CHROUT 


92 153636 

113700 

007342 

TRESIS!!MOVE 

MMODE.RO 

iset bits 0 through 2 

93 153642 

042700 

177770 

BIG 

♦177770.RO 


94 153646 

006300 


A St 

RO 

iindex register naie 

95 153650 

006300 


ASL 

RO 


96 153652 

016001 

156142 

MOV 

DSYHStROl.Rl 

iset RAD50 triplet 

97 153656 

000167 

160126 

JMP 

PRINT4 

.type it 

98 






99 153662 

110537 

007342 

GETBST! MDVB 

R5.MM0DE 


100 153666 

142737 

000300 

007342 BICB 

♦300.MH0DE 


101 153674 

000207 


lit! RTS 

PC 


102 






103 153676 

004767 

177734 

TSOBDSi:JSR 

PC.TREGIS 

.type resister na»e 

104 153702 

004767 

177674 

JSR 

PC.TCOMMA 

itype casta 

105 153706 

010501 


MOV 

R5.R1 

iset lower 6 bits 

106 153710 

042701 

177700 

BIC 

♦177700.R1 


107 153714 

006301 


ASL 

R1 

.take it a byte displacetent 

108 153716 

005401 


MEG 

R1 


109 153720 

000407 


BR 

64 


no 






111 153722 

010501 


TEMTRP1IM0V 

R5.R1 

iset lower 8 bits without siSn extend 

112 153724 

042701 

177400 

BIC 

♦177400.R1 


113 153730 

005744 


TST 

—(R4 > 

iTYn.02 will advance R4 

114 153732 

000404 


BR 

74 
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115 


116 

153734 

110501 


TERDSP: 

{MOVE 

R5.R1 

(Set lower 8 bits with sisn extend 

117 

153736 

006301 



ASL 

R1 

(sake it a byte displacement 

118 

153740 

060401 


6*: 

ADD 

R4.R1 

(add in the 'PC’ 

11? 

153742 

005744 



TST 

-0S4) 

(TYPL02 will advance R4 

120 

153744 

000167 

001162 

74! 

JMP 

TYPL02 

(twee this value 

121 








122 

153750 

113702 

007342 

TFULOPt J N0VB 

84H0DE.R2 

iaddressing node scratch 

123 

153754 

032702 

000010 


BIT 

♦10.R2 

(deferred 7 

124 

153760 

001404 



BEG 

14 

(no 

125 

153762 

012700 

000100 


MOV 

*100,RO 

Hype 9 

126 

153766 

004767 

157536 


JSR 

PCiCHROUT 


127 

153772 

120227 

000020 

lit 

CURB 

R2,#20 

(»ode 0 or 1? 

128 

153776 

103717 



BID 

TREGIS 

(bps, oust tape resister na»e 

129 

154000 

120227 

000060 


CMPB 

R2r460 

(»ode 6 or 7? 

130 

154004 

103034 



BHIS 

24 

(yes, indexed 

131 

154006 

120227 

000027 


CURB 

R2,*27 

(mediate? 

132 

154012 

001423 



BED 

34 

(yes 

133 

154014 

120227 

000037 


CMPB 

R2>*37 

(absolute? 

134 

154020 

001420 



BED 

34 

(yes 

135 

154022 

120227 

000040 


CHPB 

R2,#40 

(autodecreaent 7 

136 

154026 

103404 



BLO 

44 

(no 

137 

154030 

012700 

000055 


HOY 

♦055.RO 

(type - 

138 

154034 

004767 

157470 


JSR 

PCrCHRGUT 


13? 

154040 

004767 

177546 

44! 

JSR 

PCfTPREG 

(type resister name in parenthesis 

140 

154044 

120227 

000040 


CURB 

R2,*40 

iautoincre»ent 7 

141 

154050 

103245 



BHIS 

INTBON 

(no, finished 

142 

154052 

012700 

000053 


MOO 

#053,RO 

(type + 

143 

154056 

000167 

157446 


JMP 

CHRQUT 


144 








145 

154062 

012700 

000043 

34! 

MOV 

#043,RO 

(type ♦ 

146 

154066 

004767 

157436 


JSR 

PCrCHROUT 


147 

154072 

000167 

001016 

124! 

JMP 

TYP101 

(type next location 

148 








149 

154076 

120227 

000067 

24! 

CMPB 

R2,#67 

(relative? 

150 

154102 

001406 



BEQ 

54 

(yes 

151 

154104 

120227 

000077 


CMPB 

R2i#77 

(relative deferred? 

152 

154110 

001403 



BEQ 

54 

(yes 

153 

154112 

004767 

000776 


JSR 

PCiTYPLOl 

(type next location 

154 

154116 

000635 



BR 

TPREG 

(type register na»e in parenthesis 

155 








156 

154120 

012401 


54! 

MOV 

(R4)+*R1 

(Set next location 

157 

154122 

060401 



ADD 

R4,R1 

(add in the 'PC’ 

158 

154124 

005744 



TST 

-(R4) 

(TYPL02 will incresent R4, don't do 

159 

154126 

000167 

001000 


JMP 

TYPL02 

(type the value 

160 








161 

154132 

010501 


TCQNCB! 

! MOV 

R5?R1 

(set opcode 

162 

154134 

006201 



ASR 

Rt 

(C bit set 7 

163 

154136 

103004 



BCC 

84 

(no 

164 

154140 

012700 

000103 


MOV 

♦103.RO 

(type C 

165 

154144 

004767 

157360 


JSR 

PC,CHROUT 


166 

154150 

006201 


84! 

ASR 

R1 

(V bit set 7 

167 

154152 

103004 



BCC 

94 


168 

154154 

012700 

000126 


MOV 

♦126.R0 


16? 

154160 

004767 

157344 


JSR 

f'C.CHROUT 


170 

154164 

006201 


94! 

ASR 

R1 

(Z bit set 7 

171 

154166 

103004 



BCC 

104 
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172 154170 012700 000132 

173 154174 004767 157330 

174 154200 006201 104! 

175 154202 103234 

176 154204 012700 000116 

177 154210 000167 157314 

178 


MOV 4132.R0 

JSR PC.CHRGUT 

ASR R1 fN bit set? 

BCC 114 

MOV I116.R0 

JHP CHROUT 

.DSABL LSB 
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1 

? 

3 

A 

5 

6 
7 

B 15421A 005000 
9 154214 005200 

10 15A220 142701 001750 

11 15A22A 10337A 

12 15A226 005300 

13 154230 042701 001750 
1A 15A23A 004301 

15 154234 010144 

14 15A2A0 004301 

17 15A2A2 004301 

18 1542AA 042401 

1? 154244 042700 000040 

20 154252 000207 

21 
22 

23 154254 005000 

24 154254 005200 

25 154240 142701 023420 
24 154244 103374 

27 154244 005300 

28 154270 042701 023420 

29 154274 042700 000040 

30 154300 000207 

31 

32 

33 

34 

35 
34 

37 154302 120027 000133 

38 154304 103017 

3? 154310 120027 000101 

40 154314 103014 

41 154314 120027 000072 

42 154322 103011 

43 154324 120027 000040 

44 154330 103010 

45 154332 120027 000054 
44 154336 001405 

47 154340 120027 000044 

48 154344 001402 

49 154344 000270 

50 154350 000207 

51 154352 000250 

52 154354 000207 

53 


VOS.00 Sunday 13-Mar-83 04110 Rase 51 


.SF7TL Conversion and Typeout Routines 
44 

BINASC strips the thousands disit fro* the value in R1 and lultirlies R1 
by 10. Use B1NAS1 to set the 10000.s disit, 


BINASCItCLR 

RO 

(divide by successive subtraction 

14! IRC 

RO 


SUB 

*1000.,R1 

(try to subtract 1000. 

BCC 

It 

iuorked? no borrow 

DEC 

RO 

(fix RO 

ADD 

*1000.,R1 

land R1 

ASL 

R1 

itultiels R1 by 10 

MOV 

R1,-<SP) 


ASL 

R1 


ASL 

R1 

itiies 8 

ADD 

tSPH.Rl 

(plus 2 lakes 10 X 

ADD 

*040,RO 

iadd 060 to take it an ASCII disit 

RTS 

PC 



BINASlitCLR 

RO 

Jdivide b» successive subtraction 

It! INC 

RO 


SUB 

♦IOOOQ.jRI 

itry to subtract 10000. 

BCC 

It 

(worked, no borrow 

DEC 

RO 

ifix RO 

ADD 

*10000.,R1 

iand R1 

ADD 

*060iKO 

iiake an ASCII disit 

RTS 

PC 



+4 

RADCH checks it the character in R0 is a lesal RAB50 character. Returns 
i H=1 if not. 


radch:: chpb 

RO,*133 

ihiaher than Z? 

BHIS 

2t 


CMPB 

R0,*101 

iA or hisher? 

BHIS 

It 


CMPB 

R0t*072 

it or hisher? 

BHIS 

2t 


CMPB 

R0-*060 

50 or hisher? 

BHIS 

It 


CMPB 

R0,*056 

(period 7 

BEQ 

It 


CMPB 

R0,*044 

(dollar sisn? 

BEQ 

It 


2*J SEN 

RTS 

PC 


It: CLN 

RTS 

PC 
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1 

1 

i. 

3 

4 

5 

6 

7 

8 154354 

9 154342 

10 154344 

11 154370 

12 154372 

13 154374 

14 154400 

15 154402 

16 154404 

17 154406 

18 154410 

19 154412 

20 154414 

21 
22 

23 

24 

25 

26 154416 

27 154422 

28 154426 

29 154430 

30 154434 

31 154434 

32 154442 

33 154444 

34 154446 

35 154452 

36 154456 

37 154440 

38 154464 

39 

40 154466 

41 154470 

42 154474 

43 

44 

45 154476 
154504 

46 154510 

47 

48 154512 
154520 

49 154522 


Module Monitor MACRO 905.00 Sunday 13-Har-83 04110 Fade 52 
Tweout Routines 

;n 

i NUMCH checks if the character in RO is numeric and returns flaSs as follows! 
» N=0. 9=0 character is 0 throush 7 

i N=0t V=1 character is 8 or 9 




i 

}— 

N=1 any 

other character 


120027 

000060 

NOMCH 

:: CMPB 

R0>4060 

iis it 0 or lusher? 

103413 



BLO 

14 

inor non-nu*eric 

120027 

000072 


CMPB 

R04072 

iis it hiSher than 9? 

103010 



BHIS 

It 

fsesr non-nueeric 

120027 

000070 


CMPB 

R0.4070 

iis it hisher than 7? 

103002 



BHIS 

24 

iwest 8 or 9 

000257 



CCC 


iflaS 0 throush 7 

000207 



RTS 

PC 


000257 


24! 

CCC 



000262 



SEV 


iflas 8 or 9 

000207 



RTS 

PC 


000270 


it: 

SEN 



000207 


m 

RTS 

PC 



ASCRAD nultielies R1 by 40 and adds the RAB50 equivalent of R0. 


004767 

157500 

ASCRAD 

::jsr 

PC»R1X40 

iiultiely R1 by 40 

120027 

000040 


CMPB 

R0<4040 


001416 



BEG 

It 

ispaces converts to 0 

120027 

000056 


CMPB 

R0.I056 


001414 



BED 

44 

»period is 34 

120027 

000044 


CMPB 

R0f*044 


001412 



8EQ 

54 

idollar siSn is 33 

060001 



ADD 

R0>R1 


162701 

000100 


SUB 

♦lOOrRl 


120027 

000101 


CMPB 

ROrllOl 


103002 



BHIS 

14 

ialphabetics are 1 throush.32 

062701 

000056 


ABB 

4056fR1 

Imaerics are 36 throush 47 

000207 


141 

RTS 

PC 


005201 


44! 

INC 

R1 


062701 

000033 

541 

ADD 

♦033.R1 


000207 



RTS 

PC 



0547S4 

000566 

001533 

USERAH: ■RAB50 

/HOT IN USER RAM/ 

021020 

000000 

070265 


.BORO 

0 

057144 

000054 

015725 

QDDADR! .RAD50 

/ODD ADDRESS/ 

074670 

000000 



• HGRD 

0 
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1 

2 

3 

4 

5 
4 

7 

8 154524 

9 154530 

10 154534 

11 154540 

12 154544 

13 154544 

14 154552 

15 154554 
14 154540 

17 154542 

18 154544 

19 154570 

20 154574 

21 154574 

22 154400 

23 154404 

24 

25 154410 
24 154414 

27 154414 

28 154422 

29 154424 

30 154430 

31 

32 154432 

33 

34 

35 
34 

37 

38 . 

39 154434 

40 154440 

41 154442 

42 154444 

43 154450 

44 154452 

45 154454 


.ENABL LS6 

ADRCHK checks that the nu»ber in R4 is even if current *ode is word size. 
ADRCH1 *oves the current address into R4 and checks that it is in user RAM, 


013704 

007754 

ADRCHli.MOV 

M$ADDR,R4 


032737 

040000 

007704 adrch2::bit 

*F.PROT,MFLAGSl(aonitor scratch protection disabled? 

001024 


BNE 

ADRCHK 

I nest proceed to odd/even check 

020427 

020000 

CMP 

R4»*20000 

iabove upper instance of aonitor scratch? 

103021 


BHIS 

ADRCHK 

(yes 

020427 

004500 

CMP 

R4,**Ufi 

(below lower instance? 

103414 


BLO 

ADRCHK 

(yes 

020427 

010000 

CMP 

R4,#10000 

(within lower instance of aonitor scratch? 

103407 


BLO 

2t 

(yes, user not allowed to deposit there 

010444 


MOV 

R4,-<SP) 


142704 

010000 

SUB 

*10000,R4 

(translate R4 fro* lxxxx range to Oxxxx 

020427 

004500 

CMP 

R4,ttUR 

( 

012404 


MOV 

(SP>+,R4 

(restore R4 

103404 


BLO 

ADRCHK 

(it's between instances of scratch 

012702 

154474 

2«! MOV 

*USERAH,R2 

(point to aessade 

000147 

144402 

It: JHP 

ERROR 

(type error aessade 

105737 

007330 

ADRCHK!iTSTB 

RITNPNOD 


100404 


BMI 

3t 


032704 

000001 

BIT 

11,R4 


001403 


BEQ 

3t 


012702 

154512 

MOV 

#0DDADR,R2 

(point to aessade 

000745 


BR 

It 


000207 


3t! RTS 

PC 




•DSABL 

LSB 




(++ 





1 TYPASC types R1 35 an ASCII byte or word. 
i — 

105737 

007330 

typasc::tstb 

MTMPMOD 


100404 


BMI 

It 


000301 


SWAP 

R1 

(in word aode, type hidh order character first 

004747 

000002 

JSR 

PC, It 


000301 


SWAB 

R1 


010100 


It! MOV 

R1,R0 

(type low order character in R1 

000147 

154744 

JMP 

ASCOUT 
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1 




!44 



2 




1 

TYPDEC tyres the value in R'l as a sisned? 5-diSit deciial nueber followed 

3 

4 




f 

i — 

by a Period. TYPDE! can he used to type unsigned numbers. 

5 

6 154660 

012700 

000040 


TYPDEC:1HOV 

♦040»R0 

7 154664 

005701 




1ST 

R1 

8 154666 

100003 




BPL 

It 

9 154670 

005401 




MEG 

R1 

10 154672 

012700 

000055 



MOV 

*055»R0 

11 154676 

004747 

156626 


it: 

JSR 

PCtCHROUT 

12 154702 

112737 

000005 

007341 


MOVE 

45rB*C0UNT2 

13 154710 

004767 

177340 



JSR 

PCtBINASl 

14 154714 

000402 




BR 

3t 

15 154716 

004747 

177272 


5t: 

JSR 

PCfBINASC 

16 154722 

004747 

156602 


3t: 

JSR 

PC.C4R0UT 

17 154726 

105337 

007341 



DECS 

MCOUNT2 

18 154732 

001371 




BNE 

5t 

19 154734 

012700 

000056 



MOV 

t056.RO itype a period 

20 154740 

21 

22 

000147 

156564 


144 

Jiff* 

CHROUT 

23 




f 

TYPOCT types R1 as an octal ward. 

24 




»- 



25 







26 154744 

005000 



TYPOCT:1CLR 

RO 

27 154746 

032747 

000200 

032354 


BIT 

♦F.BYTM.TMPMOD fis it in byte *ode 

28 154754 

001407 




BEQ 

It (branch if yes 

29 154756 

112747 

000003 

032355 


MQVB 

I3.CQUNT2 Jif byte eode only three diSits 

30 154764 

000301 




SUAE 

R1 (only low byte out 

31 154766 

006301 




ASL 

R1 

32 154770 

006100 




ROL 

RO 

33 154772 

000411 




BR 

3t 

34 154774 

112747 

000006 

032337 

it: 

MOVE 

*4»CDUNT2 

35 155002 

000405 




BR 

3t 

36 155004 

005000 



2t: 

CIR 

RO 

37 155006 

006301 




ASL 

R1 

38 155010 

006100 




ROL 

RO 

39 155012 

006301 



4t: 

ASL 

R1 

40 155014 

006100 




ROL 

RO 

41 155016 

006301 



3t: 

ASL 

R1 

42 155020 

006100 




ROL 

RO 

43 155022 

062700 

000060 



ADD 

I060.RO 

44 155026 

004767 

156476 



JSR 

PC.CHROUT 

45 155032 

105337 

007341 



BECB 

MC0UNT2 

46 155036 

001342 




BNE 

2t 

47 155040 

48 

49 

000207 




RTS 

PC 
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1 

2 

3 

4 

5 

6 
7 
B 

9 

10 
11 
12 
13 
It 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


;++ 

i TYPSPC types a tabi except in instruction »ode (type nothing) . 


155042 

132737 

000100 

007330 

TTPSPC11EITB 

♦F.INST.MTMPMOB 

155050 

001004 




BNE 

11 



155052 

012700 

004440 



MOV 

♦4004011+040iRO tspacei tab 

155056 

000167 

156446 


2t: 

JHP 

CHRQUT 



155062 

000207 



1$: 

RTS 

PC 







i++ 

! 

TYPNUM 

types the value 

in 

R1 as a sy»bol or number. 





1 

TYPNM1 

types the value 

in 

R1 as a nueber only. 

155064 

004767 

174542 


TYPNUHUJSR 

PCfNATSYM 


!try to tatch a sytbol 

155070 

100402 




BM1 

TYPNM1 


iunsuccessfuli type numerically 

155072 

000167 

156676 



JMP 

PRINT2 


ielse type syibol's name 

155076 

000722 



TYPNMU1BR 

TYPOCT 
















r 

TYPLDC 

types the location 

addressed by R4 in the current »ode. R4 is advanced 





i 

to the 

next location. 

TYPLOI can be used within instruction typeout. 

155100 

004767 

177504 


TYPLOCt1JSR 

PCiABRCHK 



155104 

132737 

000100 

007330 


BITS 

♦F,INST,84THPM0B 

155112 

001026 




BNE 

TYPLOI 



155114 

011401 



TYPL01!‘MOV 

8R4>R1 


!3et current location as a word 

155116 

105737 

007330 



TST8 

84TMPM0D 


iare we in byte mode? 

155122 

100003 




BPL 

TYPL02 


Ino 

155124 

111401 




HQVB 

8R4.R1 


(else set location as a byte 

155126 

042701 

177400 



SIC 

♦177400fRl 


(prevent sign extension 

155132 

004767 

174474 


TYPL0211JSR 

PCiMATSYM 


»try to »atch a symbol 

155136 

104403 




SMI 

24 


(unsuccessful 

155140 

012700 

133774 


3»: 

MOV 

♦PRINT2»R0 



155144 

000402 




BR 

54 



155146 

012700 

155076 


24: 

MOV 

♦TYPNMlrRO 



155152 

004710 



541 

JSR 

PCp(RO) 



15515,4 

005204 




INC 

R4 



155156 

105737 

007330 



TSTB 

MTMPMOD 



155162 

100401 




BMI 

64 



155164 

005204 




INC 

R4 



155166 

000207 



641 

RTS 

PC 



155170 

010546 



TYPL0I1‘MOV 

R5i-(SP) 


1 save R5 because TYPINS uses it 

155172 

004767 

176110 



JSR 

PC.TYPINS 


itype an instruction 

155176 

012605 




MOV 

(SPHrRS 


irestore R5 

155200 

000207 




RTS 

PC 
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1 ;++ 

2 I TYPL1N tunes the next 8 locations or four locations if in binary *>de. 

3 ! — 

4 


5 

155202 

004767 

000042 


TYPLIN!!JSR 

PCiTYPADR 

I type address in R4 as label or octal nuaber 

6 

155206 

112737 

000010 

007340 


MOVB 

ta.iMCOUNTl 


7 

155214 

004767 

177660 


111 

JSR 

PCrTYPLOC 

Ituee location in current aodei advance R4 

8 

155220 

004767 

177616 



JSR 

PCfTYPSPC 


9 

155224 

005704 




TST 

R4 

Ifor 177776 to 0 case 

10 

155226 

001406 




BEQ 

34 


11 

155230 

020405 




CMP 

R4*R5 

idone yet? 

12 

155232 

101003 




BHI 

24 

lyes 

13 

155234 

005337 

007340 



DEC 

MCQUNT1 


14 

155240 

001365 




BNE 

14 


15 

155242 

000207 



24! 

RTS 

PC 


16 

155244 

000244 



341 

CLZ 



17 

155246 

000207 




RTS 

PC 


18 





at 




19 





! 

TYPAOR tunes the value in R4 as a label or octal nuiberi followed bv 1 <SP> 

20 





i— 




21 









22 

155250 

016746 

032054 


TYPADR11MOV 

THPMOD»-(SP) 

Ifor byte aode 

23 

155254 

042767 

000200 

032046 


BIC 

♦F.BYTMiTMPMOD 

f 

24 

155262 

004767 

156236 



JSR 

PCiCRIF 


25 

155266 

010401 




MOV 

R4.R1 


26 

155270 

132737 

000002 

007330 


BITB 

♦F.ABSiMTMPMOD 


27 

155276 

001006 




BHE 

14 


28 

155300 

004767 

174326 



JSR 

PCjMATSYM 


29 

155304 

100403 




BMI 

14 


30 

155306 

004767 

156462 



JSR 

PCfPRIHT2 


31 

155312 

000402 




BR 

24 


32 









33 

155314 

004767 

177424 


it: 

JSR 

PC,TYP0CT 


34 

155320 

012700 

020072 


241 

MOV 

#400t040+072 r RO 


35 

155324 

012667 

032000 



MOV 

(SP)EiTMPNOD 

rrpstor lode 

36 

155330 

000167 

156174 



JMP 

CHROUT 
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1 

n 


.SBTTL Pawer-up Diadnastics 


3 


4 

C 





.ENABL 

L5B 



J 

6 

155334 

005203 



diagno::inc 

R3 

!use r3 as disit to display nu*ber 

7 

155334 

012737 

000377 

177440 


MOV 

*377.8tPtP0RA 

(lidht all sedtents 

8 

155344 

012737 

000011 

177444 


MOV 

♦ll.RtPtPORC 

.turn on led 

9 

155352 

012705 

003133 



MOV 

♦400*0061133»R5 

rinitialize error code '12' 

10 

155356 

012701 

007776 



MOV 

♦7776.R1 

♦fill RAM with pattern, savins location for JSR 

11 

155362 

010102 




MOV 

R1.R2 


12 

155364 

005000 




CLR 

RO 


13 

155344 

010041 



it; 

MOV 

RQ.-(Rl) 


14 

155370 

005200 




INC 

RO 


15 

155372 

005201 




INC 

R! 


14 

155374 

077104 




SOB 

Rl.lt 


17 

155374 

012706 

010000 



MOV 

IIOOOO.SP 

1 set SP to toe of RAM 

18 

155402 

012700 

005777 



MOV 

♦5777.R0 

(checksu* co»p]e*ent for RAM pattern 

19 

155406 

004747 

000144 



JSR 

PC,CHKSUM 

(checksu* words fro* R1 (=0) to R2 (-7774) 

20 

155412 

042703 

177770 



BIC 

♦177770.R3 

(•ask of all hut diSit select 

21 

155416 

110337 

177444 



MOVB 

R3,0tPtPORC 

iturn off led and turn on disit 

22 

155422 

012701 

133000 



MOV 

♦133000.R1 

!index ROMs 

23 

155426 

012702 

160000 



MOV 

♦EN0.R2 

fset upper checksu* lint to top of ROMs 

24 

155432 

005000 




CLR 

RO 

iperform checksu* of ROM 

25 

155434 

004747 

000120 



JSR 

PC.CHKSUH 


24 

155440 

005705 




TST 

R5 

Ido we have an error yet? 

27 

155442 

001035 




BNE 

2t 

lyes, exit and show it 

28 

29 

30 

155444 

012705 

000117 



MOV 

♦400*000+117,R5 

(initialize error code 1 3' 

155450 

012700 

177560 



MOV 

♦17754O.R0 

1 point to console 

31 

155454 

105740 

000002 


SLUTS!: 

TST? 

2(R0) 

.clear out and recieved darbade 

32 

155460 

152740 

000004 

000004 


BIS? 

♦4,4(R0J 

.set aainenace hit 

33 

155444 

112701 

000060 



MOVB 

♦40,R1 

Unit character to x*it 

34 

155472 

105760 

000004 


slu.i: 

TSTB 

4(R0) 

(ready to x»it 

35 

155476 

100375 




BPL 

SLU.I 

(no - wait 

34 

155500 

110160 

000006 



MOVB 

R1,6(RQ> 

(send char to reciever 

37 

155504 

105710 



SLU.2! 

TSTB 

(RO) 

1 received a char 

38 

155506 

100374 




BPL 

SLU.2 

Ino - wait 

39 

155510 

126001 

000002 



CMPB 

2(R0),Rt 

idot what you xiiitted 

40 

155514 

001010 




BNE 

2t 

Ino - error 

41 

155516 

105201 




DO 

R1 

(produce next ascii character 

42 

155520 

120127 

000072 



CHPB 

R1.472 

i 

43 

155524 

001342 




BNE 

SLU.I 

Hoop until checked 0 to 177 

44 

155526 

142760 

000004 

000004 


BICB 

♦4,4(R0) 

(reset aaintenace bit 

45 

155534 

105005 




CLRB 

R5 

(yes. clear error 

44 

155536 

005705 



2$; 

TST 

R5 

(check for error 

47 

155540 

001005 




BNE 

4t 

(branch if error 

48 

155542 

132737 

000002 

177544 


BITB 

♦2,8*177564 

(see if in diadno »ode 

49 

155550 

001401 




BEO 

4t 

(if not then doo<S>y 

50 

155552 

000670 




BR 

BIA6N0 

iloop for ever 

51 

52 

53 

54 

55 

155554 

000167 

161100 


4t: 

JMP 

♦START 

(initialize scratchpad RAM 3rd start aonitor 





. ENABL 

LSB 



155560 

062100 



chksum: 

; ADD 

(RD + .RO 

iaccuiulete checksu* 

54 

155562 

020102 




CMP 

R1.R2 

(done yet 7 

57 

155564 

103775 




BLO 

CHKSUH 

(no 
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58 

155566 

000305 

SUAB 

R5 


59 

155570 

005700 

TST 

RO 

ftest result 

60 

155572 

001001 

BNE 

14 

Icheeksu* failed 

61 

155574 

105005 

CLRB 

R5 

ielse clear error 

62 

155576 

000207 

1»! RTS 

PC 



A-97 



I-il Evaluation Nodule Monitor fiACRO VOS.00 Sunday 13-Kar-S3 04110 Page 58 
Power-gp Diagnostics 


1 

& 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


.SBTTl Special Bata Structures 


INSTRUCTION ENCODE/DECODE and COMMAND DECODE TABLES! 

The five parameters listed for each opcode are! 

1. Base value of the opcode 

2. String na»e of the opcode 

3. Parameter organization! 

00 - decode condition code bits (N,Z,V,C) 

01 - nnnnnn (16 bit nuiber) 

02 - no parameters 
03 - nnn (B bit nuiber) 

04 - xxx (8 bit displaceient) 

05 - r.dd 
06 - dd or ss 
07 - ssrdd 

10 - r 

11 - r>rm (6 bit displaceient) 

4. Eouals 1 if instruction is legal in byte tode 

The fifth parameter is a code used by the top-level parser to decode ASCII 
characters in the 040 to 077 range. The values of this parameter 3re! 

0 - Illegal character at top level 

1 - Interpret as the first character of an expression or instruction 

2 - !> or label definition 

3 - it or comment 

4 - =» or symbol definition 

5 - ?, or tape as a number 

6 - Valid as an operator within expressions 

7 - Both 1 and 6 apply 


34 

.KAC8D 

INSTRS 



35 

CODE 

000000,<HALT 

>,2,0,0 

jspace 

36 

COM 

000001»<WAIT 

>,2,0,6 

5! 

37 

CODE 

000002»<RTI 

>,2,0,0 

;• 

38 

CODE 

000002*<BPT 

>,2,0,1 

;t 

39 

CODE 

000004 ,<IGT 

>,2,0,1 

;t 

40 

CODE 

000005><RESET >,2.0.0 

S3 

41 

CODE 

000006,<RTT 

>,2,0,6 

!1 

42 

CODE 

000007,< 

>,1,0,1 

5' 

43 

CODE 

000100,<J«P 

>,6,0,0 

i( 

44 

CODE 

000200,<RTS 

>,10,0,0 

5) 

45 

CODE 

000210,< 

>,1,0,6 

it 

46 

CODE 

000240,<N0P 

>,2,0,7 

i+ 

47 

CODE 

000241,<CL 

>,0,0,0 

i, 

4B 

CODE 

000257,<cce 

>,2,0,7 

»- 

49 

CODE 

000260,< 

>,1,0,1 

i > 

50 

CODE 

000261,<SE 

>,0,0,6 

)/ 

51 

CODE 

000277,<SCC 

>,2,0,1 

iO 

52 

CODE 

000300,<SUAB 

>,6,0,1 

il 

53 

CODE 

000400 KBR 

>,4,0,1 

i2 

54 

CODE 

001000,<BN£ 

>,4,0,1 

?3 

55 

CODE 

001400,<BEQ 

>,4,0,1 

i4 

56 

CODE 

002000,<BGE 

>,4,0,1 

15 

57 

CODE 

002400,<BLT 

>,4,0,1 

16 
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Special 
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58 



CODE 

003000/<B6T 

>,4,0,1 

59 



CODE 

003400/<BLE 

>,4,0,1 

60 



CDDE 

004Q00/OSR 

>,5,0,1 

61 



CODE 

005000,<CIR 

>,6,1,2 

62 



CODE 

0D5100,<D0M 

>,6,1,3 

63 



CODE 

005200,<1NC 

>,6,1,1 

64 



CODE 

005300r<DEC 

>,6,1,4 

65 



CODE 

005400? <N£B 

>,6,1,0 

66 



CODE 

005500/<ADC 

>,6,1,5 

67 



CODE 

005600/<SBC 

>,6,1,0 

68 



CODE 

005700.<TST 

>,6,1,0 

69 



CODE 

006000/<RQR 

>,6,1,0 

70 



CODE 

006100.<ROL 

>,6,1,0 

71 



CODE 

006200.<ASR 

>,6,1,0 

72 



CODE 

006300. <ASL 

>,6,1,0 

73 



CODE 

006400.< 

>,1,0,0 

74 



CODE 

006700.<SXT 

>,6,0,0 

75 



CODE 

007000.< 

>,1,0,0 

76 



CODE 

OlOOOO.CKW 

>,7,1,0 

77 



CODE 

020000,<CMP 

>,7,1,0 

78 



CODE 

030000»<8IT 

>,7,1,0 

79 



CODE 

040000.<BIC 

>,7,1,0 

80 



CODE 

050000»<BIS 

>,7,1,0 

81 



CODE 

060000.<ADD 

>,7,0,0 

82 



CODE 

070000.< 

>,1,0,0 

83 



CODE 

074000,«0R 

>,5,0,0 

84 



CODE 

075000,< 

>,1,0,0 

85 



CODE 

077000.<S08 

>,11,0,1 

86 



CDDE 

100000.<BPL 

>,4,0,0 

87 



CODE 

100400,<BH1 

>,4,0,0 

88 



CODE 

101000» <BHI 

>,4,0,0 

89 



CODE 

101400,<BLOS 

>,4,0,0 

90 



CODE 

102000.<BVC 

>,4,0,0 

91 



CODE 

102400,<BUS 

>,4,0,0 

92 



CODE 

103000*<BCC 

>,4,0,0 

93 



CODE 

103000,<BHIS 

>,4,0,0 

94 



CODE 

103400,<BCS 

>,4,0,0 

95 



CODE 

103400,<8L0 

>,4,0,0 

96 



CODE 

104000,<EMT 

>,3,0,0 

97 



CODE 

104400,<TRAP 

>,3,0,0 

98 



CODE 

105000,< 

>»1>0,0 

99 



CODE 

106400,<MTPS 

>,6,0,0 

100 



CODE 

106500,< 

>,1,0,0 

101 



CODE 

106700,<HPPS 

>,6,0,0 

102 



CDDE 

107000,< 

>,1,0,0 

103 



CODE 

160000,<SUB 

>,7,0,0 

104 



CODE 

170000,< 

>,1,0,0 

105 



,ENDM 



106 






107 

155600 

000241 

CBASESl!.WORD 

000241 

iCLC 

103 

155602 

000242 

.WORD 

000242 

»CLV 

109 

155604 

000244 

.WORD 

000244 

iCLZ 

110 

155606 

000250 

.WORD 

000250 

»CLN 

111 

155610 

000261 

.WORD 

000261 

iSEC 

112 

155612 

000262 

.WORD 

000262 

, SEV 

113 

155614 

000264 

.WORD 

000264 

1SEZ 

114 

155616 

000270 

.WORD 

000270 

f SEN 
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115 

114 

11? 

118 

11? t55420 
120 
121 
122 

123 

124 154034 

125 

124 156142 072460 000000 

127 154146 072530 000000 

128 156152 072600 000000 

129 154156 072450 000000 

130 156162 072720 000000 

131 156166 072770 000000 

132 156172 074500 000000 

133 156176 062170 OOOOOO 

134 156202 063370 OOOOOO 

135 154206 111100 OOOOOO 

136 156212 127400 OOOOOO 

137 156216 

138 156216 OOOOOO OOOOOO 

139 156222 010530 OOOOOO 

140 156226 010600 OOOOOO 

141 156232 010450 OOOOOO 

142 156236 010720 OOOOOO 

143 

144 154242 031324 042000 

145 154244 027030 OOOOOO 

146 156252 074745 062000 

147 156254 042073 075630 

148 156262 062073 075700 

149 156264 032153 076400 

150 156272 054740 060314 

151 156274 076464 042300 

152 156302 046531 014400 

153 154306 131014 004444 

154 154312 127726 014400 

155 156314 127736 020560 

156 156322 127473 012061 

157 156324 127551 076710 

158 156332 131247 070440 

159 154334 127534 042420 

160 156342 127534 044130 
141 154344 003243 057665 
162 156352 011366 011624 

143 156356 021411 074400 

144 156342 010174 017500 

165 154364 035203 077745 

166 156372 012245 004420 
147 156374 014724 021145 

168 156402 111052 014400 

169 156406 

170 156404 070530 017574 

171 156412 075245 007344 


.MACRO CODE BASVAL.MNEM,FORMAT.BYTHOD.MISC 

.WORD BA5VAL 
,ENDH 
bases:: instrs 

.MACRO CODE BASVAL.HNEMiFOKMAT.BYTHOD.MISC 

.BYTE <BYTKOB*2OOH<FORMAm0> tMISC 

.EMM 
PARAMS::INSTRS 

DSYMS:: .RAD50 /RO / predefined symbols »usl not be 3 characters ir. 

.RAP50 /R1 / .lensth. or else a 'byte *ode’ version of each 

.RAD50 /R2 / .naae will also »atch. i.e. XYZB will natch to 

.RAD50 /R3 / iXYZ. Only byte node anenonics should be 3 

.RAD50 /R4 / (Characters Ions, 

.RAB50 /R5 7 

.RAB50 /SP / 

.RAB50 /PC / 

DSYMf'S! .RAB50 /PS ! 

.RAB50 /UP / 

.RAB50 /, / 

dsymur; 

.RAB50 / / 

•RAD50 /B1 i 
.RAD50 /B2 / 

.RAD50 /B3 / 

•RAB50 /B4 i 

dirvrb::.rab50 /help / 

.RAB50 /GO 
.RAB50 /STEP / 

DIftVBt: .RAD50 /PASS’ / 

.RAD50 /PASS2 / 

,RAD50 /HOST / 

.RAD50 /NOHOST/ 

.RAB50 -'TALK / 

,RAD50 /LOAD / 

.RAD50 /.START/ 

.RAB50 /.EM / 

.RA050 /.EVEN , 

■RAD50 /.ASCII/ 

.RAB50 /.BYTE ! 

.RAB50 /.WORD / 

.RAD50 /.BLKB / 

.RAB50 /.RLKW , 

DIRVBAI .RAB50 /ABSOLU/ 

turvbb: .RAD50 /camcel/ 

PIRVBD: ,RAB50 /EXIT / 

DIRVBH! .RAB50 /BYTE / 

BIRVBi: ,KAD50 'INSTRU■ 

.RAD50 /CLEAR / 

.RAD50 /DELETE/ 
dirvbh: .raoso /word / 
birvbo: 

DIRVBP: .RAB50 /REPEAT/ 

DIRVBS: .RAOSO /SYMBOL/ 
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172 

154414 

074017 

110727 

BIRVPT: .RAD50 

/SHOUMO/ 

173 

154422 

074017 

111225 

.RAB50 

/SH0URE-' 

174 

156424 

074017 

111321 

.RAD50 

/SHOWSY ' 

175 

154432 

106257 

053600 

.RAB50 

•VTON ; 

174 

156434 

10625? 

023160 

.RAD50 

/VTOFF / 

177 






178 

154442 

012243 

000000 

CMNEMS!i.RAD50 

/CL C / 

179 

154444 

012266 

OOCOOO 

.RAD5Q 

/CLV ■' 

180 

154452 

012272 

000000 

■RAB50 

/cl: / 

181 

154454 

012254 

OOOOOO 

.RADSO 

/CLN •' 

182 

154462 

073613 

000000 

.RAB50 

/SEC / 

183 

156446 

073436 

000000 

.RAD50 

,'SEV / 

184 

156472 

073642 

OOOOOO 

,RAD50 

/SEZ / 

185 

154474 

073624 

000000 

.RAD50 

/SEN / 

184 






187 




.MACRO 

CODE BASVAL.KNEM•FORMAT>BYTMOD■HISC 

188 




.RAD50 

’MNEM* 

189 




,£NDM 


190 

154502 



MNEHS:: 1NSTRS 


191 


156566 


MHCCC « 

MNEMS1064 

192 


000770 


T0PNAM " 

. - DSYMS ilensth of precedir.3 RAD50 table 
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1 

2 

3 

4 

5 

6 

7 

8 
9 
10 
11 
12 

13 

14 

15 


000442 


+4 


+4 


.SBTTL Spare Locations. Checksuti and RDM I.D. 

The locations defined by the following directive are free and *ust be 
aero for the power-up diadnastics to work properly. Uhen 3ddins cade 
in this space or chandind any of the previous code, adjust the checksum 
value at CHECKS - 157774 so that the ROMs as e whole will have a :ero 
word checksu*. 


.REFT <157774-.> 

.BYTE 0 
.ENBft 

The followind word adjusts the ROM checksu* to zero. 


16 


!— 




17 






IB 157774 

052744 

checks:: 

.WORD 

52744 

J12-MAY-83 R. Arnott 

19 






20 


jh 




21 


! The 

last 

byte in 

each of the ROMs is used to identify the ROMs 

22 






23 






24 157774 

010 

lo.ib:: 

■ BYTE 

010 

(Version 1.Or low byte 

25 157777 

010 

hi.to:: 

.BYTE 

010 

(Version 1.0r hidh byte 

24 






27 160000 

140000 

END!! 

.END 

START 
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T-ll Evaluation Module Monitor MACRO 005.00 Sunday 13-Msr-83 04110 Pase 5?-l 
Suit'd table 


ADDir 

152154 G 

ADRCHK 

154610 G 

ADRCH1 

154524 D 

ADRCH2 

154530 6 

ADVADR= 

007334 G 

ASCOUT 

133626 G 

ASCRAD 

154416 G 

AUXFLG= 

007711 G 

AUXIN = 

000120 G 

AUXOUT= 

000124 G 

A»CREG= 

177452 G 

AiRBUF= 

177550 6 

A4SREG- 

177552 G 

AIX8UF' 

177450 G 

BASES 

155620 D 

BCDKEY 

140050 C- 

BC8T8L 

136522 

BINASC 

154214 G 

BINAS1 

154254 G 

BLNKDS 

136350 

8LNKHI 

136344 G 

BLNKLO 

136136 G 

BLOAD 

150442 G 

BOTTOH= 

007346 G 

BP 

007630 G 

BRANCH 

153266 

BRBISP 

153024 G 

BREAK 

137114 G 

BRKFIL= 

007760 G 

8RKPT 

137174 G 

BRKP1 

141466 

BUFFER^ 

007470 G 

CANCEL 

142246 G 

CBASES 

155600 G 

CHECKS 

157774 6 

CHKSUM 

155560 G 

CHROUT 

133530 G 

CHR01 

133540 G 

CHR02 

133554 G 

CLRAPE 

151146 

CNNEMS 

156442 G 

CM0N1T 

142724 G 

CM0N1 

142572 G 

CM0N2 

143164 G 

CM0N3 

143216 G 

CM0N31 

143224 

CM0N4 

143246 G 

CHONS 

143604 G 

CM0N6 

143616 G 

CM0N7 

143652 

CNTLC = 

007344 G 

COMACH 

152670 

CDMLUP 

143646 

CONBRK: 

000140 G 

CONCOD 

153172 G 

CONFLG: 

007710 G 

CONIN = 

000060 G 


CONOUT: 

000064 G 

CONTIN 

143612 G 

COUNT1= 

007340 G 

COUNT 2- 

007341 G 

CRLF 

133524 G 

CURCOM= 

007326 G 

C*RBl*F- 

177562 G 

C»RCSR= 

177560 G 

C4XBUF* 

177566 G 

CJXCSR: 

177564 G 

DEBNC£= 

007704 G 

BECBSP 

140030 G 

DELETE 

147444 G 

BELIM = 

007345 G 

DELSTM 

151674 G 

DGOISP 

140014 G 

BIAGNO 

155334 G 

DIGEXE 

140542 G 

DIRVBA 

156346 

D1RVBB 

156352 

DIRVRD 

156356 

DIRVBH 

156362 

BIRVBI 

156366 

DIRVBN 

156402 

8IR0BG 

156406 

BIRVBP 

156406 

DIRVBS 

156412 

DIRVBT 

156416 

DIRVBl 

154256 

BIRVRB 

156242 G 

BI5PLA 

135344 G 

DIVID 

152164 G 

DOCOHN 

144124 

DOCR 

144170 G 

DDEXPR 

144274 G 

OGFUNC 

142226 G 

BOLABL 

151426 G 

BOMVAL 

144134 

DDOPER 

145124 

DOSYMB 

151164 G 

DOVER® 

147172 G 

BSPDEC 

136366 G 

D5PD1G 

135772 G 

PSPLNN 

136044 G 

DSPNAM 

136112 6 

DSPWJM 

136050 

DSPTBL 

140360 G 

DSPUNM 

136036 G 

DSYMPS 

156202 

DSYHS 

156142 G 

B5YHUR 

156216 

EABS 

146150 G 

EBYT 

146176 G 

ECAN 

146156 G 

ECHO 

134142 G 

ECLR 

146222 G 

ECON 

146354 


EDEL 146232 G 
EDEL1 146240 
EERR 144360 
EEXT 144320 G 
EFNB 144540 G 
EIN3 146210 G 
EMOD 144760 G 
EMOV 146364 G 
ENTRAP 153152 G 
END 140000 G 
ENItEXP 145002 
ENUM 144270 G 
EREG 146332 G 
EREF 146274 G 
ERROR 143212 G 
ERR0R2 143720 
ERRSEG 135754 
ESIN 144312 G 
EXDOOP 145220 
EXINIT 145172 
EXIKI1 145200 
EXF'FLG= 007332 G 
FERCHR 137542 G 
FERROS 137350 G 
FIN® 150114 G 
FIXBP 140170 
FLAGS1- 007706 6 
FNESAG 137424 G 
FHESG1 137434 
FMESG2 137450 
FMESG3 137472 
FMESG4 137522 
FNCDDN 142264 
FNCTBL 142234 G 
FP = 007631 G 
FPAREN 145162 
FULOPR 152364 G 
F.ABS = 000002 
F.ABDR= 000004 
F.APFL= OlOOOO 
F.A64X= 000200 
F.BRKA= 000400 
F.8RKG= 001000 
F .BRKS- 000020 
F.BYTB- 000001 
F.BYTN= 000200 
F.CHAN= 000002 
F.CGhH= 000020 
F.CPBO- OOOOIO 
F.CPB1- 000020 
F.CPB2= 000040 
F.DATA: OOOOOl 
F.FUNC= 000040 
F.HOST= 004000 
F.INST= 000100 
F.KEYP- 002000 
F.LDST= 000100 


F.LOAB= 

000200 

F.MNEM: 

OOOOOl 

F.NULL: 

000004 

F.PAS1= 

tOOOOQ 

F.PROT: 

040000 

F.REG ^ 

OOOOIO 

F.SAVX: 

OOOOIO 

F.SST = 

000200 

F.SST1= 

OOOOOl 

F.STOP-- 

000002 

F.TBAS= 

020000 

F,UNBF= 

000004 

F.USER: 

000100 

F.USRD“ 

OOOOIO 

F.VALU= 

000002 

F.VT = 

004000 

GENEXP 

144512 G 

GETARG 

152642 G 

GETBP 

133436 G 

GETCH 

133316 5 

GETCHC 

133412 G 

GETBST 

153662 

GETERM 

144556 G 

GETEXP 

144522 G 

GETEX1 

144540 

GET INS 

152206 G 

GETKEY 

140044 G 

GETLCH 

133406 G 

GETL1H 

133240 G 

GETLIT 

146060 G 

GETNAN 

145450 G 

GETNMB 

145304 G 

GETNUM 

140054 G 

GETNXT 

133426 G 

GETDPR 

144724 G 

GETOPV 

144720 6 

GETREG 

152322 G 

GETSYM 

151560 G 

GNEXAM 

141146 G 

GO 

147432 G 

GOILED 

142270 G 

GRET 

143052 

HELP 

147320 6 

HEXSEG 

134016 G 

KFP = 

007672 G 

HGETCH 

134744 G 

HMD 

157777 G 

HOST 

150222 G 

HOSTBF: 

007632 G 

HOSTIN 

134540 G 

HSTFLG= 

007673 G 

INSDN1 

152744 

INSDN2 

152760 

INSDON 

152770 

TNSDSF' 

152276 

INTDON 

153564 

INTDSF 

153514 


miNiT 

135C76 G 

IOVECT 

135224 G 

ITRAP 

137334 G 

KABRCH 

142156 

KEYBCD 

136514 G 

KEYCMD 

140330 G 

KEYCH1 

140344 G 

KEYGET 

136436 G 

KEY6E1 

136470 

MYP1V: 

007476 G 

K£YPVS= 

007700 G 

KLOOF 

140306 G 

KLOOF 1 

141170 

KLOOF-2 

14144-1 

K'HONIT 

140200 G 

LASCQH: 

007327 G 

LASLIN= 

007325 G 

LED1V = 

000104 G 

LERft 

150472 

LEVEL = 

007333 G 

LINEIN 

133000 G 

LINFLG= 

007324 G 

LOAD 

150442 G 

LOBLNK 

140040 G 

LGBISP 

140024 G 

LQGAND 

152134 G 

LOGOR 

152130 G 

LO.ID 

157776 G 

LPAREN 

145C46 

MATSYh 

151632 G 

MFB251: 

007464 G 

NNCCC = 

156564 G 

MNEMS 

156502 G 

NODE = 

007342 G 

NDN1TR 

140010 G 

H0N1T1 

137556 0 

MOVE 

150044 G 

MULTIP 

152142 G 

NAMTBL 

136154 G 

NOHOST 

150306 G 

NOPCOB 

153540 G 

NOPROT 

150134 G 

NPROT 

142562 G 

NUMCH 

154356 G 

NUH5ET 

136546 G 

0DDABR 

154512 

DPERAT* 

007343 G 

OPRAND 

153014 G 

OPRTPL 

145250 

OPTION 

150352 

OVERFL 

143104 

PABRAB 

146050 

PABR1 

146040 

PARAMS 

156034 G 

F'ARDSP 

144104 

PASS1 

150202 G 

F-ASS2 

150212 G 
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T-tl Evaluation Module Monitor MACRO VOS.00 Sunday 13-Mar-83 04110 PaSe 59-2 
Sy»bol table 


PBSVAL 

145670 G 

SAVEXP= 

007336 G 

TCONCD 

154132 G 

TYPSYH 

152102 G 

♦GDI 

141722 G 

PERNOD^ 

007331 G 

SCRPADr 

007400 G 

TETtTRP 

153722 G 

TYPTBL 

152040 G 

♦HALT 

136752 G 

PFVEC = 

000024 G 

SCRPD1= 

006500 G 

TFULDP 

153750 G 

UCSAVE 

137004 G 

♦MONIT 

137570 3 

PRINT 

133766 G 

SEGBUF= 

007712 G 

TINE = 

007730 G 

UNBEFX 

151372 

♦NULLI 

135676 G 

PRINTA 

133754 G 

SETAUX 

135170 G 

THPM0D= 

007330 G 

UPBLNK 

140034 G 

♦NUMER 

140430 G 

PRINT1 

134004 G 

SETAX1 

135126 

TQPNAM= 

000770 G 

UPDISF 

140020 G 

♦PC = 

007750 G 

PRINTS 

133774 G 

SETAX2 

135124 

TOPRNIi 

153554 G 

USERAH 

154476 

♦PS = 

007752 G 

PRINT3 

134014 G 

SETMOD 

146104 

TPREG 

153612 G 

USERIV= 

000100 G 

♦REG 

141610 G 

PRINT4 

134010 

SLUTST 

155454 

TREGIS 

153636 G 

USERVS- 

007702 G 

♦RPEAT 

150012 G 

PRNERR 

143120 G 

SLU.l 

155472 

TRGBST 

153574 G 

VCON 

150142 

♦RO = 

007732 6 

PR0TED 

150172 G 

SLU.2 

155504 

TRTSRG 

153566 G 

VERR 

150146 

♦Ri - 

007734 E 

PURGE 

133450 G 

SOBDSP 

153102 G 

TSOBBS 

153676 G 

VERR1 

150162 

♦R2 = 

007736 G 

PWRFVS- 

007674 G 

SPCLBF= 

007726 G 

TSRDST 

153544 G 

VRBDSP 

147220 G 

♦R3 - 

007740 G 

P*CREG= 

177444 G 

SPDT8L 

142302 G 

TYPABR 

155250 G 

VR8BS1 

147262 

♦R4 = 

007742 C 

P»P0RA= 

177440 G 

SPEEDS 

142320 G 

TYPASC 

154634 G 

VTJMP 

147402 

♦R5 = 

007744 G 

PIP0RC* 

177444 G 

SRCDST 

153006 G 

TYPBEC 

154660 G 

VTOFF 

147406 

♦SP = 

007744 G 

PiP0RP= 

177544 G 

STACK = 

007462 G 

TYPINS 

153304 G 

VTON 

147374 

♦SST 

141706 6 

P*PQftI= 

177542 G 

START 

140000 G 

TYPE IN 

155202 G 

WHAT 

143076 

♦START 

136660 G 

PJPQR0= 

177442 G 

STEP 

147416 G 

TYPLOC 

155100 G 

♦ABBR = 

007756 G 

♦UR = 

006500 G 

RAUCH 

154302 G 

SUBTR 

152160 G 

TYFlfll 

155170 G 

♦APBRN 

141550 G 

♦WATCH= 

007754 G 

REGDST 

152724 G 

TALK 

150504 G 

TYPED! 

155114 G 

♦AI'V 

141232 G 

♦ .ASCI 

147700 G 

R£P£AT= 

007446 G 

TALK1 

150530 

TYPL02 

155132 0 

♦BACK 

141372 G 

♦ .BLIP 

147634 G 

KEP0F0 

151412 

TBLBOT- 

007462 G 

TYPNN1 

155074 G 

♦ BRKP 

141462 G 

♦.BLKU 

147654 G 

RERR 

150152 

TBLEUL 

151504 

TYPNUN 

155064 G 

♦CLR 

141110 G 

♦.BYTE 

147466 G 

RPAREN 

145152 

TBLTOP= 

007320 G 

TYPOCT 

154744 G 

♦EXAM 

141122 G 

♦.EVEN 

147776 G 

RSTART 

140004 G 

TBRDSP 

153734 G 

TYPREG 

151730 G 

♦FUNC 

141650 G 

♦,STRT 

150344 

RTSREG 

152714 G 

TCOMMA 

153602 

TYPSPC 

155042 G 

♦GO 

141714 G 

♦ .WORD 

147560 G 


R1X40 134122 G 

. ABS. 140000 000 (RW,I,GBI»ABS,0VR> 

000000 001 (RW.FiLCLiRELrCON) 

Errors detected! 0 

Ml Asseabler statistics 


Work file reads! 0 
Work file writes! 0 

Size of work file! 10740 Words ( 43 Fades) 
Size of core pool! 13312 Words ( 52 Pades) 
Operated $sste»! RT-11 

Elapsed tue! 00102130.51 
DK!HGN2iDK!H0N2/C=DK!H0N2 
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APPENDIX B 
SCHEMATIC DRAWINGS 



Figure B-l DCT11-EM Component Placement 
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E23 
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APPENDIX C 
ERROR MESSAGES 


Cl DIAGNOSTIC ERROR MESSAGES 

The following flashing error messages are displayed if the DCTl 1-EM fails its diagnostic tests. These are 
fundamental errors and must be corrected before you attempt to do anything else. 


UPPER 

DISPLAY 


LOWER 

DISPLAY 


MEANING 




RAM checksum test failed. Try 
replacing RAM chips. 


ROM checksum test failed. Try 
replacing ROM chips. 


RAM and ROM checksum tests failed. 
Beard may have major problems. 


OLART feedback test failed. 
Board may have major problems. 


C.2 KEYPAD ERROR MESSAGES 

If the DCTl 1-EM detects an error while you are using the keypad, it displays a flashing error message on 
the upper and lower rows of LEDs. The upper row of LEDs displays a two-character error code and the 
lower row of LEDs displays: 



The entire error message disappears and the DCTl 1-EM is returned to register mode when you press the 
HALT switch or any key on the keypad. 

The keypad error messages are as follows. 


UPPER 

DISPLAY 


LOWER 

OtSPLAY MEANING 



I 


E r 


You tried to execute a program with 
a 8PT instruction in it. 


A break was detected on the console 
terminal port while the keypad was 
active. 


C-l 

















v! 



1 




_ 

p 




_ 

_ 

u 

r 

_ 




You tr*ed to execute a program with 
an invalid instruction in it. 


You tried to execute a program and 
used an unacceptable value for the 
SP. See chapter 5 for more information. 


You tried to alter a protected location 
in the keypad monitor scratch pad 
{locations 7400 through 7776). 


C.3 CONSOLE MESSAGES 

The console displays 12 different messages (Table C-l). Most of these are error messages that indicate a 
problem with your input or with the execution of your program. This paragraph explains each of the 
messages and its probable causes. 

Some of the error messages are preceded by the portion of your input that caused the error. If this is the 
case, your erroneous input is displayed between backslashes on the line above the error message. 
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Table C-l Console Messages 


Message 

Meaning 

BRANCH OUT OF RANGE 

You input a branch instruction which was too far from the branch destina¬ 
tion. Recall that branch instructions have a range of -128 to 127 (decimal) 
words. 

BREAK POINT 

ENCOUNTERED 

A breakpoint (Bl, B2, B3, or B4) or a BPT instruction was encountered 
while your program was executing. 

BUFFER OVERFLOW 

The console monitor was accepting input from a host and a line exceeding 96 
characters was received. As with all errors generated during host loading, 
this error stops the DCT1 l-EM from loading further input from the host. 

CONSOLE BREAK 

The BREAK key on the console keyboard was pressed. If you are executing 
a program, execution stops and the DCTI l-EM internal register values at 
the time of the break are saved. If you arc in HOST, TALK, or LOAD 
modes. CONSOLE BREAK causes a return to NOHOST mode. 

INVALID INSTRUCTION 
ENCOUNTERED 

An invalid op code was encountered while your program was running 

INVALID STACK POINTER 

The stack pointer did not have a value between 4 and 6500 (inclusive) when 
you started your program or when you single stepped. 

NOT IN USER RAM 

You attempted to alter a location that was in the protected monitor 
scratchpad area (locations 6500 through 7777, inclusive). 

ODD ADDRESS 

You attempted to access a full word in RAM on an odd address boundary 
Use the BYTE mode to examine or alter locations at odd addresses. 

REPEAT OF ZERO 

You input a REPEAT command that had a count of zero. 

TABLE FULL 

You attempted to define more than 66 symbols. 

UNDEFINED EXPRESSION 

You attempted to use an undefined parameter, operand, or other data object 
when a defined expression was required, For example, you referenced an 
undefined symbol while in PASS2 mode 

WHAT ? 

You attempted to input a line that had a syntax error in it 
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INDEX 


A 

ABSOLU command, 4-7, 4-29 
Address decoding, 6-6 
Address pointer, 4-6 
Address space, 5-13 
standard RAM space, 5-15 
expansion RAM space, 5-15 
monitor space, 5-15 
I/O space, 5-15 
for external hardware, 5-16 
reserved, 5-16 
Altering memory 
with console, 4-10 
with keypad, 3-10, 3-32 
Altering registers 
with console, 4-5 
with keypad, 3-4, 3-32 
.ASCII command, 4-21, 4-29 

B 

.BLKB command, 4-21, 4-29 
BLKW command, 4-21, 4-29 
Breakpoints canceling 
with console, 4-20 
canceling with keypad, 3-27, 3-32 
displaying with console, 4-20 
displaying with keypad, 3-20, 3-32 
setting with console, 4-19 
setting with keypad, 3-20, 3-32 
Buffers, 6-5 

.BYTE command, 4-21, 4-30 
BYTE command, 4-7, 4-30 

C 

Cancel breakpoints, 3-27, 3-32 
CANCEL command, 4-16, 4-20, 4-30 
CLEAR command, 4-14, 4-30 
Connectors, 6-8 
60-pin (Jl), 6-8 through 6-9 
auxiliary serial (J3), 6-10 
console serial (J4), 6-11 
power supply (J2), 6-10 
Console 

altering memory with, 4-10 
altering registers with, 4-5 
command summary, 4-29 


connecting a, 4-1 
control commands, 4-3 
default modes, 4-2, 4-21 
entering programs with, 4-12 
examining registers with, 4-5 
examining memory with, 4-7 
host loading with, 4-22 
input rules, 4-2 
monitor, 1-1, 3-28, 5-1, 5-15 
output formatting modes, 4-6 
single stepping with, 4-17 
transferring control to and from, 4-2 
using breakpoints with, 4-19 
using watchpoint with, 4-16 
Console commands 

ABSOLU command, 4-7, 4-29 
.ASCII command, 4-21, 4-29 
.BLKB command, 4-21, 4-29 
.BLKW command, 4-21, 4-29 
.BYTE command, 4-21, 4-30 
BYTE command, 4-7, 4-30 
CANCEL command, 4-16, 4-30 
CLEAR command, 4-14, 4-30 
DELETE command, 4-14, 4-30 
.END command, 4-26, 4-30 
.EVEN command, 4-21, 4-30 
EXIT command, 4-2, 4-30 
GO command, 4-16, 4-30 
HELP command, 4-21, 4-30 
HOST command, 4-23, 4-30 
INSTRU command, 4-7, 4-30 
LOAD command, 4-24, 4-30 
NOHOST command, 4-23, 4-30 
PASS1 command, 4-25, 4-30 
PASS2 command, 4-25, 4-30 
REPEAT command, 4-21, 4-31 
SHOWMO command, 4-21, 4-31 
SHOWRE command, 4-5, 4-31 
SHOWSY command, 4-14, 4-31 
.START command, 4-25, 4-31 
STEP command, 4-17, 4-31 
SYMBOL command, 4-7, 4-31 
TALK command, 4-23, 4-38 
VTOFF command, 4-3, 4-31 
VTON command, 4-3, 4-31 
.WORD command, 4-21, 4-31 
CTRL/A, 4-3, 4-24, 4-25, 4-32 
CTRL/C, 4-3, 4-32 
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CTRL/O, 4-3, 4-24, 4-32 
CTRL/Q, 4-3, 4-32 
CTRL/R, 4-3, 4-32 
CTRL/S, 4-3, 4-32 
CTRL/U, 4-3, 4-32 
CTRL/X, 4-3, 4-32 
CTRL/Y, 4-3, 4-32 

D 

Default operating modes, 2-3, 4-2, 4-21 
DCT11 -AA microprocessor, 1 -1, 6-3 
DELETE command, 4-14, 4-30 
Directives, 4-20 

Debugging, see Breakpoints, 

Single stepping, Watchpoints 

E 

.END command, 4-36, 4-30 

EPROM, 6-4 

.EVEN command, 4-21, 4-30 
EXIT command, 4-2, 4-30 
Error Messages 
console, C-2 
diagnostic, 2-4, C-l 
keypad,C-l 
Examining memory 
with console, 4-7 
with keypad, 3-7 
Examining registers 
with console, 4-6 
with keypad, 3-2 
Expressions, 4-3 

G 

GO command, 4-16, 4-30 
Go with LEDs, 3-27, 3-32 

H 

Host Loading 

configuration, 4-22 
example of process, 4-28 
preparing a loadable program, 4-25 
the HOST command, 4-23 
the TALK command, 4-23 
HELP command, 4-21, 4-30 
HALT switch, 3-24, 6-7 
HOST command, 4-25, 4-30 


I 

INT switch, 3-25, 6-7 

INSTRU command, 4-7, 4-30 

Instruction format, 4-11 

Interrupts, 5-5, 6-6 

J 

Jumpering, 2-4, 6-4 

K 

Keypad 

altering registers with, 3-4 
altering memory locations with, 3-10 
command summary, 3-32 
entering programs with, 3-12, 3-16 
examining registers with, 3-2 
examining memory locations with, 3-7 
monitor, 1-1, 2-3, 5-1, 5-15 
number system, 3-2 
single stepping with, 3-17 
special functions, 3-26 
cancel breakpoints, 3-27, 3-32 
go with LEDs, 3-27, 3-32 
release protection, 3-30, 3-32 
set baud rates, 3-28, 3-32 
start console, 3-34, 3-32 
using breakpoints with, 3-19 
using watchpoint with, 3-22 

L 

LOAD command, 4-24, 4-30 

M 

MACRO-11, 4-20 

Memory expansion module, 6-11 

Monitor, 1-1, 2-3, 3-8, 3-28, 3-30, 4-2, 5-1, 
5-15,6-4 

Monitor subroutines, 
console, 5-8 through 5-13 
ASCOUT, 5-9 
CHR02, 5-9 
CHROUT, 5-9 
CRLF, 5-9 
GETCH, 5-9 
GETCHC, 5-9 
GETLIN, 5-8 
GETNXT, 5-9 
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PRINTA, 5-9 
TYPDEC, 5-9 
TYPOCT, 5-9 
using, 5-10 

keypad/LED, 5-2 through 5-8 
BCDKEY, 5-3 
DEC DSP, 5-3 
DGDISP, 5-2 
GETKEY, 5-3 
GETNUM, 5-4 
LOBLNK, 5-3 
LOD1SP, 5-3 
UPBLNK, 5-3 
UPDISP, 5-3 
using, 5-4 

N 

NOHOST command, 4-23, 4-30 

P 

PASS I command, 4-25, 4-30 
PASS2 command, 4-25, 4-30 
Peripheral chips, 6-4 
address decoding, 6-6 
auxiliary serial line (8251 A), 6-5 
DLART console serial line, 6-5 
parallel port (8255A), 6-4 
reserved locations for, 5-15, 6-4 
Processor status word, 3-2 
Power supply 
cable, 2-1 

connector, 2-2, 6-8, 6-10 
requirements, 2-1 

R 

RAM. 6-5 

Release protection, 3-30, 3-32 
REPEAT command, 4-21, 4-31 


STEP command, 4-17, 4-31 
Subroutines, see Monitor subroutines 
SYMBOL command, 4-7, 4-31 
Symbols 
defining, 4-14 
deleting, 4-14 
displaying, 4-14 
symbol name rules, 4-13 
Symbol table 
deleting, 4-14 
displaying, 4-14 
System specifications, 1-1 

T 

TALK command, 4-23, 4-31 
Timing, 6-7 
Traps, 6-6 

U 

User LED, 3-25, 5-5 

V 

VTOFF command, 4-3, 4-31 
VTON command, 4-3, 4-31 

W 

Watchpoints 

canceling with console, 4-16 
canceling with keypad, 3-27 
displaying with console, 4-16 
displaying with keypad, 3-20, 3-22 
setting with console, 4-16 
setting with keypad, 3-22 
.WORD command, 4-21, 4-31 


S 

Set baud rates, 3-28, 3-32 
SHOWMO command, 4-21, 4-31 
SHOWRE command, 4-5, 4-31 
SHOWSY command, 4-14, 4-31 
Single stepping 
with console, 4-17 
with keypad, 3-17 
Stack pointer, 2-3, 3-2, 5-2 
.START command, 4-25, 4-31 
Start console, 3-28, 3-32 
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